use IO::Socket::INET;

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