Mega Code Archive

 

Categories / Perl / Network

 

Simple TCP Clients

#!/usr/bin/perl use warnings; use strict; use IO::Socket; my $sock = IO::Socket::INET->new('remote.host.com:7777'); while (<$sock>) {     print "Server: $sock\n";     print "Response?";     my $response = <STDIN>;     print $sock $response; }