как сгенерировать random пароль для adduser?

#!/usr/bin/perl

$passwd='';
# Например для паролей из больших латинсхих букв. Правится на вкус :)
for (my $i=0;$i<8;$i++) {$passwd.=chr(rand(26)+65);} 
$salt=chr(rand(26)+65).chr(rand(26)+65);

print "Password: $passwd\n";
print "Encrypted password: ".crypt($passwd,$salt)."\n";

exit 0;