>>648
http://search.cpan.org/search?q=Math+random&n=100

my $rand = '';
$rand .= (0..9)[rand 10] for 1..32;
print $rand, "\n";

($rand = rand(1) . rand(1)) =~ tr/.//d;
print $rand, "\n";