DB<116> sub __CALLER__ { 
           my $level = shift;
           my %hash; 
           @hash{qw/package filename line subroutine hasargs wantarray evaltext is_require hints bitmask hinthash/} = caller($level+1); 
           return \%hash 
           }
  DB<130> sub tst { print __CALLER__->{subroutine} }

  DB<131> tst()
main::tst