Select Code to Download

{
    my $i = 60000;
...
    print "end 1\n";
} # <-- hash goes out of scope; segfault if stacksize is too low
print "end 2\n";

{
    my $i = 60000;
...
    }
}
print "end 2\n";