use IO::Socket::INET;

use strict;

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