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