use strict;
$| = 1;
print "$$\n";   #top -p $$
    
print "Test, Allocating a large string \n"; <>;
{
    my $foo = 'X' x 100000000; 
    print "Large String allocated.\n";<>;
    
    undef $foo;
    print "Large String deallocated.\n";<>;
}

print "2nd Large String.\n";<>;
{
#evil:    my $foo2 = 'X' x 100000000;
    my $foo2;   
    $foo2 .= 'x' x 1000 for (1 .. 100000);
    print "2nd Large String allocated.\n";<>;
    undef $foo2;
    print "2nd Large String deallocated.\n";<>;
}   
print "Now what? Press enter to exit";
<>;