my $res = CORE::shutdown $socket, 1;