#!/usr/bin/perl -w

use strict;
use IO::Socket;

while(my $sock = IO::Socket::INET->new("localhost:7676")) {
  print $sock "TEST";
  sleep 1;
  $sock->close;
}