for ( 0..$pwdlen-1 ) {
        	$pwd .= substr( $pwdchars, rand( $limit ), 1 );
	}