perl> use Devel::Size qw[ total_size ];; perl> $Devel::Size::warn = 0;; perl> print $_, ':', total_size( \$::{$_} ) for keys %::;; / : 382 stderr : 289 SIG : 3705 , : 399 utf8:: : 4359 " : 307 _:: : 460