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

print time(), "\n";
my $socket = IO::Socket::INET->new(Proto => "tcp", LocalAddr => "localhost", LocalPort => 3000, Listen => 10, Timeout => 0.1);
for (1 .. 10) {
	my $connection = $socket->accept();
}
print time(), "\n";