$0

#!/usr/bin/perl $p='$q=chr(39);$t=chr(34);$h="Content-type: text/html\n\n$0

#!/usr/bin/p"
."erl\n\$p=$q";$_=$p;$\="$q;eval\$p;

$/"; s/&/&/g;s//>/g;s/$q/'/g;s/$t/"/g ;print$h.$_;';eval$p;