foo();

sub foo {
  my @callinfo = caller(0);
  print "i am $callinfo[3]\n";
}