perl -we 'sub mem{system qq(cat /proc/$$/status | grep ^VmSize)}; mem();bless {}, qq(A$_) for 1 .. 1000000;mem()' VmSize: 23768 kB VmSize: 1234168 kB