use IO::Select;
use IO::Socket::INET;

use warnings;
use strict;

my $s = IO::Socket::INET->new(Proto => "tcp", LocalAddr => "localhost", LocalPort => 1234, Listen => 10);
print "waiting...\n";
my $c = $s->accept();
print "connected\n";
while (1) {
	$c->send("abc");
	sleep(3);
}