Select Code to Download

Author: Travis Emmit 
 
$s="7072696e742724733d22272e24732e225c223b5c6e222e7061636b22482a222c24
+733b0a"; 
print'$s="'.$s."\";\n".pack"H*",$s;

Author: Allan M. Due 
 
...
q(",$1,");\n",$1,";\n"|e); 
s|(.*)|print "#!/usr/local/bin/perl -w\nuse strict;\n\$_ = 
q(",$1,");\n",$1,";\n"|e;