Random password med store/små bogstaver og tal

Her er en fnuktion. Giv den ønskede længde password som parameter:
--
sub mkpwd {
        my $len = $_[0] ;
        my @letters = (\'a\'.. \'z\', \'A\' .. \'Z\', 0 .. 9);
        my $pwd = \'\';
        foreach $n (0 .. $len-1) {
                        $x = rand(scalar(@letters));
                        $pwd .= $letters[$x];
        }
        return $pwd;
}

Works like a charm!

Takker!