use Errno qw(:POSIX);

while (1) {
   ($new_sock, $c_addr) = $sock->accept();
   unless ($new_sock) {
        next if $!{EINTR};
        die "Can't accept: $!";
   }
   die "Can't fork: $!" unless defined ($pid = fork());

#(etc)
[download]