my $buffer .= "x" x 1024 for 0 .. 5; print length $buffer;