Password generator

A simple routine to make passwords.


sub makePassword{
my $length = shift;
@chr = (0..9,'A'..'Z','a'..'z');
$passwd .= @chr[rand @chr] for 1..$length;
return $passwd;
}

print makePassword(10);
print makePassword(5);
print makePassword(1);