Help for this page
use IO::Socket::INET; my $log = IO::Socket::INET->new( PeerAddr => 'logserver', ... Proto => 'udp' ); die unless $log->connected();
my %kid; for (1..50) { my $pid = fork; ... } # No Zombies! delete $kid{wait()} while %kid;
www.com | www.net | www.org
No recent polls found