Select Code to Download

use strict;
use Devel::Size qw(total_size);
...
    print(Dumper($ref));
    print("\n");
    }

package TestModule;

...
}

1;

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

$l - 16 bytes
$VAR1 = \undef;