Help for this page
#!/usr/bin/perl -w use strict; ... $tcp_socket->close();
#!/usr/bin/perl #tcpclient.pl ... } $socket->close();