Select Code to Download

use IO::Socket::INET;

my $s = IO::Socket::INET->new(Proto => "tcp", LocalAddr => $ARGV[0], L
+ocalPort => 8080, Listen => 10) || die "failed";
$s->accept();
print "accepted\n";

use IO::Socket::INET;

my $c = IO::Socket::INET->new(Proto => "tcp", PeerAddr => $ARGV[0], Pe
+erPort => 8080) ||die "failed";