>perl -E"$h{rand()}++ for 1..1e6; printf qq[prob: %.3f%%\n], (keys(%h)/1e4)"
prob: 3.277%

>perl -E"$h{rand()}++ for 1..1e6; printf qq[prob: %.3f%%\n], (keys(%h)/1e4)"
prob: 3.277%

>perl -E"$h{rand()}++ for 1..1e6; printf qq[prob: %.3f%%\n], (keys(%h)/1e4)"
prob: 3.277%

>perl -E"$h{rand()}++ for 1..1e6; printf qq[prob: %.3f%%\n], (keys(%h)/1e4)"
prob: 3.277%

##</code><code>##

void makeDir( void ) {
    in t i = 10;
    do {
 	sprintf( dir, "c:/tmp/MYAPP04x%04X/", 
            GetCurrentProcessId(), GetTickCount64() & 0xffff );
            --i || expire( -99999 );
	} while( _mkdir( dir ) == ERROR_FILE_EXISTS );

	GetLastError() && expire( - GetLastError() );

	return;
}