my $sub = (caller(0))[3];

##</code><code>##

perl -MCarp=verbose script.pl