in reply to Fun with caller()

ja ja you like caller. This example is for explanation the obfus code #!/usr/bin/perl sub Just_another::Perl_hacker{(caller(0))[3]} #caller = procedure name => Just_another::Perl_hacker $_=Perl_hacker Just_another; #$_=Just_another::Perl_hacker stored ~s/_|::/ /g; #replace :: and _ for spaces on $_ print; #printing $_ => sub name clean