Select Code to Download

# default password length
$pass_len = 14;

$dflt_pass_len = 14;

sub random_password {
    my ($pass_len) = @_;
...

    return $password;
}