$DB::single=1;

##</code><code>##

perl -d foo.pl

##</code><code>##

perl -d:ptkdb foo.pl

##</code><code>##

perl -d:tkdb foo.pl