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