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";