#!/usr/bin/perl
$q=chr(39);$n=chr(10);$t=chr(96);$a='#!/usr/bin/perl%s$q=chr(39);$n=chr(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;

##</code><code>##

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