Select Code to Download

$ cat -n tt
     1  #!/usr/bin/perl
...

DB<8> s
main::((eval 20)[tt:11]:7):     ;

DB<8> p $#{"_<(eval 20)[tt:11]"}
7
...
5       }
6 
7==>    ;

DB<10> s
main::(tt:13):  $cf->(4);

DB<10> p $#{"_<(eval 20)[tt:11]"}
-1

DB<11> p join "\n", map { "$_   $#{$_}" } grep /_<\(/, keys %::
_<(eval 20)[tt:11]   -1
...
4 
5 
6       ;

DB<14> f eval 20
Choosing (eval 20)[tt:11] matching `eval 20':


DB<15> l

DB<15> s
main::CODE(0x97b7d28)((eval 20)[tt:11]:2):
...
Debugged program terminated.  Use q to quit or R to restart,
  use o inhibit_exit to avoid stopping after program termination,
  h q, h R or h o to get additional info.