use strict;
use Devel::Size qw(total_size);
use Data::Dumper;
use TestModule;

my $h = TestModule::get_mem();
foreach my $name (keys(%$h)) {
	my $ref = $h->{$name};
	my $mem = total_size($ref);
	print("$name - $mem bytes\n");
	print(Dumper($ref));
	print("\n");
	}