Select Code to Download

sub randomPassword {
    my $length   = shift || 12;
    my @OK_CHARS = ('a'..'z', 'A'..'Z', '0'..'9', qw[_ - . @]);
...

    return $password;
}