PERLDB_OPTS="NonStop=1" perl -de "while(my(\$key, \$value) = each(%INC)){print qq{\$key ==> \$value\n};}"
perl5db.pl ==> /usr/lib/perl5/5.8.0/perl5db.pl