>perl -wMstrict -le
"my $s = '.' x 500_000_000;
 sleep 5;
 undef $s;
 sleep 10;
"