Select Code to Download

sub mm { print( (`pslist -m $$ 2>NUL`)[-2,-1] )}
sub ff { my @fudge = 1 .. 1_000_000; @fudge }
sub fa { scalar @{[ &ff ]} }
...
Name                Pid      VM      WS    Priv Priv Pk   Faults   Non
+P Page
perl                796   66076   50280   48252   48260    13582      
+2   34
1000000 at - line 4.

sub mm { print( (`pslist -m $$ 2>NUL`)[-2,-1] )}
sub ff { my @fudge = 1 .. 1_000_000; @fudge }
...
Name                Pid      VM      WS    Priv Priv Pk   Faults   Non
+P Page
perl               1432   66076   50280   48252   48260    13582      
+2   34
1000000 at - line 4.