my $string;
$string .= chr(32 + int rand 95) for 0..1024000;