my $sock;
my $rv = shutdown($sock, 2)
