# default password length
$pass_len = 14;

##</code><code>##

$dflt_pass_len = 14;

##</code><code>##

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

    my @chars_in_pass = character_pool();

    my $password='';
    for (1..$pass_len) {
        my $random_number = int rand @chars_in_pass;
        $password     .= $chars_pool[$random_number];
    }

    return $password;
}