use IO::Socket;

my $server = IO::Socket::INET->new(
         PeerAddr = 'peer's ip address',
         PeerPort = 8090,
         Proto = 'tcp'
) or die "Can't create client socket: $!";