use Errno qw(EINTR);

...
while (1) {
 $client = $socket->accept;
 if (!$client) {
   next if $! == EINTR;
   die "Error on accept: $!\n";
 }
[download]

PerlMonks parthenogenetically spawned by Tim Vroom.
PerlMonks went on a couple dates, and then decided to shack up with The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.