Select Code to Download

package X;
use strict;
...

X::a;
X::b;

$ perl -d dbtest.pl

...
a
X::b(dbtest.pl:10):     print "b\n";
  DB<4>