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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

print mem2;

##</code><code>##

[ 1:52:14.81] C:\test>tail gened.pl
    X4: L4( $s, $e, $p );
    X3: L3( $s, $e, $p );
    X2: L2( $s, $e, $p );
    X1: L1( $s, $e, $p );
}

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

print mem2;

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