Select Code to Download

perl -we "sub mem{system qq(tasklist /FI \"PID eq $$\"|findstr perl)};
+ mem();bless {}, qq(A$_) for 1 .. 1000000;mem()"

perl.exe                     29356 Console                    1      6
+.616 K
perl.exe                     29356 Console                    1  1.353
+.656 K

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

perl -MDevel::Symdump -e "bless {},'notexisting';print Devel::Symdump-
+>new('noexisting')->as_string"
...

unknowns

use strict;
use warnings;
...

HASH %nonexistent:: = ( AUTOLOAD=>'*nonexistent::AUTOLOAD', )