Select Code to Download

sub whoami  { (caller(1))[3] };  #returns name of the sub that called 
+this sub
sub whowasi { (caller(2))[3] };  #returns name of the parent of the su
+b that called this sub