my $s = IO::Socket::INET->new(Proto => "tcp", LocalAddr => "localhost", LocalPort => 3000, Listen => 10);

for (my $c = $s->accept()) {
      ...
}