(foo-lnx:Mon Jan 10 14:53:14):~/tmp
$cp /usr/lib/perl5/5.8.0/perl5db.pl .
 
(foo-lnx:Mon Jan 10 14:53:31):~/tmp
$PERLDB_OPTS="NonStop=1" perl -I. -de "while(my(\$key, \$value) = each(%INC)){print qq{\$key ==> \$value\n};}"
perl5db.pl ==> perl5db.pl