my $tiny=join "",map {$printable[rand(scalar @printable)]} 1..10;