Hi, I am new to forking and do not really understand it too well. I basically want to create a buffer for my socket and read and write from that buffer. So I will push all incoming stuff from my socket to an array, and at the same time be reading stuff out from the array (shifting the first element). I wanted one process for reading and one for writing. Cannot figure it out. Any help would be most welcome. Thanks,

#!/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";
        }
}
[download]