Help for this page
#!/usr/bin/perl #server.pl ... } $socket->close();
#!/usr/bin/perl # client.pl ... $socket->autoflush(1); return $socket; }