Help for this page

Select Code to Download


  1. or download this
    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
  2. or download this
    (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