sub sleepy {
	my $count = shift;
	my $time  = gettimeofday;
	sleep(0.0001);    # Sleep here to ensure unique time
	my $hitime = gettimeofday;

	print $time - $hitime,' ';

	if ( $time == $hitime ) {
		$match++;
	}
}