sub make_pwd {
    my $pwd = "";
    my @char_set = ('a' .. 'k', 'm' .. 'n', 'p' .. 'z', '2' .. '9');
        
    $pwd .= $char_set[int(rand($#char_set + 1))] for 0 .. 7;
    $pwd;
}