#!/usr/bin/perl

use IO::Socket::INET;
use strict;


my $sock = IO::Socket::INET->new(
   PeerAddr => '192.168.1.10',
   PeerPort => 1001,
   Proto    => 'tcp',
   #Broadcast => 1,
   #LocalAddr => '192.168.1.11',
);


while(chomp(my $txt = <>)){
   print $sock $txt;
   $sock->flush;
}