Help for this page

Select Code to Download

Select or download this

foo();

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