#!/usr/bin/perl

use IO::Socket;

$socket = IO::Socket->new(
   PeerAddr => 'somehost_or_ip',
   PeerPort => 'some_port',
   Proto    => 'tcp',
   Type     => SOCK_STREAM,
);

die "Cant connect to remote host!\n" if (!$socket);

# Send a transmission
print $socket "$some_output\n";

# Receive a resonse back
chomp($line = <$socket>);