use IO::Socket::INET;
use strict;
use warnings;

my $s = new IO::Socket::INET(Proto => "tcp", LocalPort => 3000, Timeout => 2);
while (1) {
	my $c = $s->accept();
	print time, "\n";
}