Help for this page
taken from http://www.perlmonks.org/?node_id=546243 Updated after the first 3 replies, using: ... $client->close(); } }
#!/usr/bin/perl use IO::Socket; ... print $sock "$count\n"; print "$count"; } close ($sock);