#! perl -slw
use strict;

sub mem{ `tasklist /nh /fi "PID eq $$"` =~ m[(\S+ K)$] }
END{
    print time - $^T, " seconds\nRam:", mem;
}

sleep $ARGV[0];

__END__
C:\test>junk33 5
5 seconds
Ram:4,836 K

C:\test>junk33 10
10 seconds
Ram:4,832 K