#! perl -slw
use strict;
use threads;

sub checkmem {
    print qx[ tasklist /nh /fi "pid eq $$"];
}

async(sub{ sleep 3 })->detach for 1 .. 100;

sleep 1;
checkmem;

sleep 5;
checkmem;

__END__
c:\test>junk74
perl.exe                      4928 Console                    1     58,960 K
perl.exe                      4928 Console                    1     24,696 K