while ( $Qclean->pending )
	{
		my $fileno = $Qclean->dequeue();
		delete $sockets{ $fileno };
	}