- or download this
use feature qw( :5.10 );
...
}
__END__
mem usage: 11220
- or download this
{
my $huge = huge_data_structure();
...
print 'mem usage: ', my_mem(), "\n";
__END__
mem usage: 116132
- or download this
print counter(), "\n";
{
...
__END__
0
0
- or download this
use feature qw( :5.10 );
...
__END__
0
1