sub GenPass {
    my ( $pswd_chars, $pswd_len ) = @_;

    my $limit = length( $pswd_chars );

    my $pswd = '';
    for ( 0..$pswd_len-1 ) {
        $pswd .= substr( $pswd_chars, rand( $limit ), 1 );
    }
    return $pswd;
}