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