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");
	}

##</code><code>##

package TestModule;

use strict;
use PadWalker qw(peek_my);

my $str = 'abcxyzabcxyzabcxyzabcxyz';
my $h = { x => 'abcabcabcabcabc', y => 'xyzxyzxyzxyzxyz'};
my $l = ['abcdefghi', 'stuvwxyz'];

sub get_mem {

my $str1 = 'abcxyzabcxyzabcxyzabcxyz';
my $h1 = { x => 'abcabcabcabcabc', y => 'xyzxyzxyzxyzxyz'};
my $l1 = ['abcdefghi', 'stuvwxyz'];

return peek_my(0);
}

1;

##</code><code>##

$str1 - 52 bytes
$VAR1 = \'abcxyzabcxyzabcxyzabcxyz';

$h - 16 bytes
$VAR1 = \undef;

$h1 - 230 bytes
$VAR1 = \{
            'y' => 'xyzxyzxyzxyzxyz',
            'x' => 'abcabcabcabcabc'
          };

$l1 - 132 bytes
$VAR1 = \[
            'abcdefghi',
            'stuvwxyz'
          ];

$str - 52 bytes
$VAR1 = \undef;

$l - 16 bytes
$VAR1 = \undef;