use IO::Socket::INET;

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

##</code><code>##

use IO::Socket::INET;

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