use strict;
use IO::Socket;
my $server = IO::Socket::INET->new (
  Proto => "tcp",
  LocalPort => 3000,
  Reuse=>1,
  Listen=>10
) or die "Cannot connect to time service";

my ($request,$remote);
$server->autoflush (1);
while (defined($remote=$server->accept())) {
   $remote->autoflush(1);
   $request=<$remote>;
   print $request."\n";
}