Help for this page

Select Code to Download

Select or download this

use IO::Socket::INET;
my $log = IO::Socket::INET->new(
    PeerAddr => 'logserver',
...
    Proto    => 'udp'
);
die unless $log->connected();

Select or download this

my %kid;
for (1..50) {
    my $pid = fork;
...
}
# No Zombies!
delete $kid{wait()} while %kid;