in reply to Under the Perl debugger

I found this node and this link and this.

if ( defined (&DB::DB ) ) {

When you use the -d switch &DB::DB is called before each line.

In Section Seekers of Perl Wisdom