my $line = 'x' x 10000;