Help for this page

Select Code to Download


  1. or download this
    [0]{} Perl> print for grep /::$/,
version::
...
PerlIO::
Benchmark::
c::
  2. or download this
    [0]{} Perl> print "$_: ", total_size( \%{$_} ) for grep /::$/, keys %{
+main::};;
version:::  8400
...
PerlIO:::  1833
Benchmark:::  197989
c:::  203
  3. or download this
    for my $stash ( grep /::$/, keys %{main::} ) { 
    print "$stash ", total_size \%{$stash}; 
...
Benchmark::timethis::: 84
Benchmark::mytime: 80
c::  203