[0]{} Perl> print "$_: ", total_size( \%{$_} ) for grep /::$/, keys %{main::};;
version:::  8400
Tie:::  4339
Devel:::  25803
Cwd:::  118168
Regexp:::  1599
UNIVERSAL:::  1967
overload:::  54595
File:::  80032
feature:::  20416
ActivePerl:::  139164
Config:::  84324
warnings:::  84493
Time:::  39560
EPOC:::  481
Win32CORE:::  657
attributes:::  658
vars:::  14306
subs:::  4786
XSLoader:::  26283
main:::  1194552
AutoLoader:::  38435
Carp:::  39827
Win32:::  9600
Used:::  1872
threads:::  52381
MIME:::  914
ActiveState:::  74236
utf8:::  3147
constant:::  28102
re:::  40244
mro:::  3242
DynaLoader:::  59460
strict:::  8389
Term:::  685
Sub:::  1784
used:::  490
Dos:::  480
Data:::  163029
List:::  20470
IO:::  685
Exporter:::  119426
Internals:::  2469
DB:::  541
CORE:::  672
Scalar:::  38034
VMS:::  1579
PerlIO:::  1833
Benchmark:::  197989
c:::  203