use strict;
use IO::Socket;

my $sock = new IO::Socket::INET (LocalPort => 1200,
				 Proto     => 'tcp',
				 Listen    => 5,
				 Reuse     => 1,
				);
die "Can't connect: $!\n" unless $sock;

while (my $new_sock = $sock->accept()) {
	my $msg = <$new_sock>;
	print "client said '$msg'\n";
}
close $sock;