$SIG{PIPE} = sub { $log->warning("Caught SIGPIPE:  $!"); $running = 1; };

##</code><code>##

		$log->warning("In thread: Attempting to shutdown handle associated with fileno: $fno");
		shutdown ($socket, 2) or $log->warning ("In thread: Shutdown error: $!");
		$log->warning("In thread: Attempting to close handle associated with fileno: $fno");
		close $socket or $log->warning ("In thread: close error: $!");
		$log->warning("In thread: Enqueing in Qclean fileno: $fno");
		$Qclean->enqueue( $fno );

##</code><code>##

$ perl -e 'printf "<request>getmyip</request>%c",0' | ./nc myhost.com 9999

##</code><code>##

<data><ip>x.x.x.x</ip></data>

##</code><code>##

August 29 09:12:44 xmlsockd-advanced[32652]: (1) : XML IP request from: x.x.x.x
August 29 09:12:44 xmlsockdx[32652]: In thread: Attempting to shutdown handle associated with fileno: 5
August 29 09:12:44 xmlsockdx[32652]: In thread: Attempting to close handle associated with fileno: 5
August 29 09:12:44 xmlsockdx[32652]: Caught SIGPIPE:  Broken pipe
August 29 09:12:44 xmlsockdx[32652]: In thread: close error: Broken pipe

##</code><code>##

$log->warning("In thread: Attempting to shutdown handle associated with fileno: $fno");
shutdown ($socket, 2) or $log->warning ("In thread: shutdown error: $!");
$log->warning("In thread: Enqueing in Qclean fileno: $fno");
$Qclean->enqueue( $fno );

##</code><code>##

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

##</code><code>##

$ perl -e 'printf "<policy-file-request/>%c",0' | ./nc myhost.com 9999

##</code><code>##

<?xml version="1.0"?><cross-domain-policy><allow-access-from domain="*" to-ports="9999" /></cross-domain-policy>

##</code><code>##

August 29 09:26:31 xmlsockd[7815]: (1) : XML IP request from: x.x.x.x
August 29 09:26:31 xmlsockd[7815]: In thread: Attempting to shutdown handle associated with fileno: 5
August 29 09:26:31 xmlsockd[7815]: In thread: Enqueing in Qclean fileno: 5
August 29 09:26:31 xmlsockd[7815]: Caught SIGPIPE:  Broken pipe