while ($socket->recv(my $in, 1024) ) {
   my $sock = IO::Socket::INET->new(
       Proto => 'udp', 
       PeerAddr =>'127.0.0.1:50000');
   print $sock $in;
}

##</code><code>##

my $sock = IO::Socket::INET->new(
   Proto => 'udp', 
   LocalAddr =>'127.0.0.1:50000');
while ($socket->recv(my $in, 1024) ) {
   print $sock $in;
}