shutdown $socket, 2;
close $socket;