Select Code to Download

my @pass_char = ('a'..'z', 'A'..'Z', 0 .. 9, qw(_ . @));
sub generate_password {
    my $len = shift || 12;
...
    $pass .= $pass_char[rand @pass_char] for 1 .. $len;
    return $pass;
}

my @pass_char = ('a'..'z', 'A'..'Z', 0 .. 9, qw(_ . @));
sub generate_password {
    return join '', map $pass_char[rand @pass_char], 1 .. (shift || 12
+);
}