sub GenPass {
    my ($pwdlen, %flags) = @_;
    my $password="";
    my $num;
    
    while (length ($password) < $pwdlen) {
        $num = GetRandNum ();

        if (($num >= 33 && $num <= 47) || ($num >= 58 && $num <= 64) ||
            ($num >= 91 && $num <= 95) || ($num >= 123 && $num <= 126)
           ) {
            next if $flags{symbols} eq '0';
        }
        
        if (($num >= 48 && $num <= 57)) {
            next if $flags{numbers} eq '0';
        }
        
        if (($num >= 65 && $num <= 90)) {
            next if $flags{uppercase} eq '0';
        }
        
        if (($num >= 97 && $num <= 122)) {
            next if $flags{lowercase} eq '0';
        }
   
        redo; # Invalid character, try again
        
    } continue {
        $password .= chr($num);
    }

    return "$password\n";
}