Select Code to Download

   DB<116> sub __CALLER__ { 
           my $level = shift;
...

  DB<131> tst()
main::tst

  DB<136> use Data::Dump qw/dd/

...
  subroutine  => "main::tst",
  "wantarray" => 1,
}