Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
$q=chr(39);$n=chr(10);$t=chr(96);$a='#!/usr/bin/perl%s$q=chr(39);$n=ch
+r(10);$t=chr(96);$a=%s%s%s;$s-sprintf($a,$n,$q,$a,$q,$n);eval$s;%s';$
+s=sprintf($a,$n,$q,$a,$q,$n);eval$s;

Select or download this

#!/usr/bin/perl
open(F,"<$0");
undef $/;
eval <F>;