UDP server with IO::Socket::INET

[jarmund]

OK, i'm not going to bother posting what i've tried so far, since i've tried pretty much everything i could find (except for what would work for me). Basicly, it's a client/server thing. The concept should be fairly simple. (pseudo)Code snippets of what i'm doing as follows:

use warnings; # Handy
use strict;   # Even more handy
use IO::Socket::INET;

my $socket = IO::Socket::INET->new (
        LocalPort       => $config{'listenport'},
        Proto           => 'udp',
        Reuse           => 1,
) or die "Can't create listening socket: $@\n";

while (1)
{
        my $indata;
        # Read some data from the serial port
        # Read some data from a few files
        # ~300 lines of calculations go here, putting it all into $out
+data when done
        shipout($outdata);
        # flush buffers, and other stuff
}

sub shipout
{
        my $datatoship = shift;
        # these lines should be replaced by something that 
        # that sends the contents of $datatoship to
        # everyone (or anyone) that is connected to $socket
        # if none is connected, just move on.
}

__END__

So, yeah.. basicly, I need to send the result of the calculations done in the mainloop to anyone that might be connected to the socket. The communications are one-way, as in no clients ever sending anything to the server, as they just connect to read a stream of data calculated by the server. I have looked at many examples, but i have still not found one that deals with one-way comms, except from client->server, and i need it the other way around. I thought this should be fairly straightforward, and i still do, i'm just sure that i'm missing something very vital.