gosub();

sub gosub {
   print "my name is " . get_name();
   print "\nI can get it here to, my name " . (caller(0))[3];
}

sub get_name {
   (caller(1))[3];
}