($SIG{__DIE__},$\,@japh) = (sub{exit}," ",qw!Just another Perl hacker!
+);
sub UNIVERSAL::AUTOLOAD{$_[0]=shift@japh} $/="Foo";print $/->Bar while
+ 1

[download]
 Update: oops, posted an intermediate version by mistake; this is the final version: 
($SIG{__DIE__},$\,@japh)=(sub{exit},qw!I Just another Perl hacker!);
sub UNIVERSAL::AUTOLOAD{$_[0]=shift@japh} $\->Bar, print " " while 1

[download]

Back to Obfuscated Code