http://www.perlmonks.org?node_id=187846

$;=sub{print shift},"Just another Perl hacker\n"->$;;

Back to Obfuscated Code