while (my $active_sock = $sock->accept()) { fork and send it to a sub }