P:\test>perl -le"
my $s; do{ local $/; $s=<>};
print length $s;
system qq[tasklist /fi \"pid eq $$\" ]" 1000000.dat
11000001
Image Name PID Session Name Session# Mem Usage
========================= ====== ================ ======== ============
perl.exe 604 0 12,860 K
####
P:\test>perl -le"
my $s=do{ local $/; <>};
print length $s;
system qq[tasklist /fi \"pid eq $$\" ]" 1000000.dat
11000001
Image Name PID Session Name Session# Mem Usage
========================= ====== ================ ======== ============
perl.exe 1372 0 23,624 K
##
##
P:\test>perl -le"
my $s = eval q[do{ local $/; <>}];
print length $s;
system qq[tasklist /fi \"pid eq $$\" ]" 1000000.dat
11000001
Image Name PID Session Name Session# Mem Usage
========================= ====== ================ ======== ============
perl.exe 1764 0 12,880 K