Select Code to Download

P:\test>perl -le"
my $s; do{ local $/; $s=<>}; 
...
Image Name                   PID Session Name     Session#    Mem Usag
+e
========================= ====== ================ ======== ===========
+=
perl.exe                     604                         0     12,860 
+K

P:\test>perl -le"
my $s=do{ local $/; <>}; 
...
Image Name                   PID Session Name     Session#    Mem Usag
+e
========================= ====== ================ ======== ===========
+=
perl.exe                    1372                         0     23,624 
+K

P:\test>perl -le"
my $s = eval q[do{ local $/; <>}]; 
...
Image Name                   PID Session Name     Session#    Mem Usag
+e
========================= ====== ================ ======== ===========
+=
perl.exe                    1764                         0     12,880 
+K