my $sock=IO::Socket::new(.....);
while (my $conn=$sock->accept) {
  # do something with $conn
}