#!/usr/bin/perl
use IO::Socket::INET;
use strict;

my $socket = new IO::Socket::INET(Proto => "tcp", 
                            PeerAddr => 192.168.0.15, 
			    PeerPort => 1337);
while (1) {
   print $socket "1234\n";
   my $msg = <$socket>;
   print $msg;
   sleep(5);
}