Select Code to Download

my @printable=('a'..'z','A'..'Z','0'..'9');

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