#!/usr/bin/perl

use IO::Socket::INET;
my @array;

my $sock = IO::Socket::INET->new(
                                LocalAddr => 'loghost',
                                LocalPort => 514,
                                Proto => 'udp')
                                or die "Cant establish socket";

die "Fork failed: Damn it!!!\n" unless defined($kid = fork);

if ($kid) {
        while (<$sock>) {
                print "SOCKIN: $_\n";
                push ( @array, $_ ); 
        }
} else {
        while (@array)) {
                my $firstelem = shift (@array);
                print "$firstelem\n";
        }
}