Select Code to Download

07/06/2018  01:44         3,959,242 gened.pl
               1 File(s)      3,959,242 bytes

C:\test>wc -l gened.pl
  50405 gened.pl

C:\test>perl -d:Trace gened.pl >log 2>&1
C:\test>dir log
07/06/2018  01:49         2,334,425 log
               1 File(s)      2,334,425 bytes

sub mem2{ `tasklist /nh /fi "PID eq $$"` =~ m[(\S+ K)$]; }

print mem2;

[ 1:52:14.81] C:\test>tail gened.pl
    X4: L4( $s, $e, $p );
...

[ 1:53:47.89] C:\test>gened
187,124 K