use strict;
use warnings;

package TestGreedy;

use vars qw(
   $TIMESTAMP
   $SPAM
);

sub init {
   $TIMESTAMP = scalar( localtime );
   my $f =   "x" x 1024 x 1024 ;

   foreach my $i (1 .. 50 ) {
       $SPAM->{$i} = $i . $f;
   }
}

package main;

TestGreedy::init();

use B::TerseSize;
use Data::Dumper;

my @report = B::TerseSize::package_size('TestGreedy');
print Dumper \@report;