[ 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