Dmitri's First JAPH

sub AUTOLOAD{$_=chop($AUTOLOAD);0x59>ord&&print' ';print;shift}sub _{'
+main'}
($YAPH = <<YetAnotherPerlHacker) =~ s-(\w)(?!$)-$1\->-g and eval $YAPH
_YetAnotherPerlHacker
YetAnotherPerlHacker
[download]

Comment on Dmitri's First JAPH Download Code

Back to Obfuscated Code