Help for this page
use IO::Socket::INET; ... } $socket->close();
#!/usr/bin/perl ... $socket->close();