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


##</code><code>##

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


##</code><code>##


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

arrays

functions

hashes

ios

packages

scalars

unknowns


##</code><code>##

use strict;
use warnings;

my %before = %main::;
bless {},'nonexistent';
my %after = %main::;

foreach my $symbol (sort keys %after) {
    next if exists $before{$symbol}; 

    local *myglob = $after{$symbol};
    if ( defined *myglob{HASH} ) {
        my %val = %{ *myglob{HASH} };
        print "HASH \%$symbol = ( ";
        while(  my ($key, $val) = each %val )  {
            print "$key=>'$val', ";
        }
        print ")\n" ;
    }
}

__END__

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