my $ret = $client_socket->shutdown(2);
if( ! defined($ret) ){ print STDERR "$0 : error shutdown() : not a valid filehandle.\n"; }
elsif( $ret == 0 ){ print STDERR "$0 : error shutdown() : $!\n"; }
else { print "$0 : socket shutdown OK\n"; }