Select Code to Download

# Forking server
use IO::Socket;
...
    }
}
close ($main_sock);

$sigset=POSIX::SigSet->new(SIGCHLD);
$sigaction=POSIX::SigAction->new('main::REAPER', $sigset, &POSIX::SA_R
+ESTART);
$osigact=POSIX::SigAction->new;
sigaction(SIGCHLD, $sigaction, $osigact);