Select Code to Download

C:\test>\perl22\bin\perl -e"my$s=do{local(@ARGV,$/)='1gb.db';<>}; prin
+t `tasklist /nh /fi \"PID eq $$\"`;"

perl.exe                      2948 Console                    1  1,218
+,828 K

C:\test>\perl22\bin\perl.exe \perl22\bin\p1.pl
[0]{} Perl> print for keys %INC;;
...
threads.pm
overloading.pm
[0]{} Perl>