$socket->timeout(5);

while (my $c = $socket->accept) {
   # request Verarbeitung
}

close($socket);
exit(0);