#!/usr/bin/perl
use IO::Socket;
$REMOTE_MACHINE=$ARGV[0];
$PORT = $ARGV[1];
$remote_server  = IO::Socket::INET->new( Proto    => "tcp",
					 PeerAddr => $REMOTE_MACHINE,
					 PeerPort => $PORT) or die "cannot connect to server at REMOTE_MACHINE";
autoflush $remote_server 1;
autoflush STDOUT 1;
while (<STDIN>) {print $remote_server $_}
close($remote_server);