Select Code to Download

   my $memdump = MemoryDump->new();

   anyFunction();

   print $memdump->diff(MemoryDump->new();

my @a = ();

$#a = 1e6;

my @a = ();
...
    print "$mem : $_[0]\n";
};