package Just_another_Perl_hacker;eval"&@{[join',&',split//,__PACKAGE__]}";sub
AUTOLOAD{$i++,($j,$k)=(sort keys%::)[$i,$i+1]until$j=~/ARGV/;$$k=~s<^.*::>[];
print$$k;sub s}sub ::AUTOLOAD{(my$s=caller)=~tr// /c;print+join"\b",split//,$s}