memory usage by package

END {
    use B::TerseSize;
    use Devel::Symdump;

    my $stab = Devel::Symdump->rnew("main");
    my %size;
    for my $package ("main", $stab->packages) {
        my($subs, $opcount, $opsize) = B::TerseSize::package_size($package);
        $size{$package} = $opsize;
    }
    for my $package (sort {$size{$b}<=>$size{$a}} keys %size) {
        printf "%-24s %8d [KB]\n", $package, $size{$package}/1024;
    }
}