{
    my $foo = 'X' x 100000000;
    getc;
}
undef $foo;
my $foo = "";
getc;