print "current mem: ".`ps -o vsz= -p $$`*1024, $/
[download]

For more accurate information, I'd compile a perl with -DDEBUGGING. See perlrun.