# anything windows, including Cygwin
my $is_winenv = ( $^O =~ /mswin|mingw|msys|cygwin/i );

# write a char before calling shutdown
syswrite($client, '0') if $is_winenv;
$client->shutdown( 2 );
close $client;

syswrite($svr, '0') if $is_winenv;
$svr->shutdown( 2 );
close $svr;