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