my $string  = pack "A*" => map { chr (32 + int rand 95) } 0..1024000;
print length($string);