use strict;
use IO::Socket;

my $remote_host = "10.10.1.1";
my $remote_port = "1233";
my $socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                                               PeerPort => $remote_port,
                                               Proto    => "TCP",
                                               Type     => SOCK_STREAM,
                                              );