#!/usr/bin/perl -w

require 5.002;
use Socket;
use FileHandle;
use IO::Handle;

$remote = 'localhost';
$port = 5646;
$iaddr = inet_aton($remote) or die "no host: $remote";
$paddr = sockaddr_in($port, $iaddr);

$proto = getprotobyname('tcp');
socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
connect(SOCK, $paddr) or die "connect: $!";

while ($l = <STDIN>) {
    print SOCK "$l";
    SOCK->autoflush(1);
    #print "sent $l";
}

close(SOCK);