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

##</code><code>##

my %kid;
for (1..50) {
    my $pid = fork;
    $kid{$pid} = undef, next if $pid;
    next if not defined $pid;
    # in child
    undef %kid;
    close STDERR;
    close STDOUT;
    close STDIN;
    for (1..60) {
        $log->send("<DEBUG> Child $0: Message #$_\n");
    }
    exit 0;
}
# No Zombies!
delete $kid{wait()} while %kid;