c:\test>perl -MDevel::Size=total_size 
-wle"sub x{ $_[0]*10 } print total_size(\&x)"
2884

c:\test>perl -MDevel::Size=total_size 
-wle"print total_size(\%::)"
199700