use IO::Socket $socket = IO::Socket::INET->new ( PeerAddr => ' ThisDomain.com', PeerPort => '2000', Proto => 'tcp', Type = 'SOCK_STREAM' ) or die "Could not Open Port.\n";