my $socket = IO::Socket::INET->new(
        LocalPort => $LISTEN_PORT,
        Type => SOCK_DGRAM,
        Proto => 'udp') || die "ERROR: can't open socket\n";
while ($socket->recv(my $in, 1024) ) {
        my $sock = IO::Socket::INET->new(
                 Proto => 'udp', 
                 PeerAddr =>'127.0.0.1:50000');
print $sock $in;