I'm running 5.16 I don't see leaks http://live.sysinternals.com/procexp.exe

#!/usr/bin/perl --
sub mm { print pslistMem($$),"\n"; }
sub pslistMem {
    my( $pid ) = @_;
    my @lines = qx{pslist   -m $pid       2>NUL};
    chomp @lines;
#~ Name                Pid      VM      WS    Priv Priv Pk   Faults   
+NonP Page
#~ perl               1052   25348    7220    4504    4512     1977   
+   2   33
    my %ps;
@ps{'Name',
'Pid',
'VM',
'WS',
'Priv',
'Priv Pk',
'Faults',
'NonP',
'Page' } = grep length, split /\s+/, $lines[-1];
#~    Pri         Priority
#~    Thd         Number of Threads
#~    Hnd         Number of Handles
#~    VM          Virtual Memory
#~    WS          Working Set   ------ "Mem Usage" in taskmanager
#~    Priv        Private Virtual Memory   ------ "VM Size" in taskman
+ager
#~    Priv Pk     Private Virtual Memory Peak
#~    Faults      Page Faults
#~    NonP        Non-Paged Pool
#~    Page        Paged Pool
#~    Cswtch      Context Switches
#~     use DDS; Dump(\@lines , \%ps);
    return "WVM: $ps{VM} { WS: $ps{WS} VM: $ps{Priv} } ";
}


for ( 1 .. 5 ) {
    mm;
    for ( 1 .. 1000 ) {
        system 'echo >NUL';
    }
    mm;
}
mm;
__END__
WVM: 21648 { WS: 4476 VM: 1832 }
WVM: 21648 { WS: 4496 VM: 1844 }
WVM: 21648 { WS: 4496 VM: 1844 }
WVM: 21648 { WS: 4496 VM: 1844 }
WVM: 21648 { WS: 4496 VM: 1844 }
WVM: 21648 { WS: 4496 VM: 1844 }
WVM: 21648 { WS: 4496 VM: 1844 }
WVM: 21648 { WS: 4496 VM: 1844 }
WVM: 21648 { WS: 4496 VM: 1844 }
WVM: 21648 { WS: 4496 VM: 1844 }
WVM: 21648 { WS: 4496 VM: 1844 }
[download]