Hm, it looks like you somehow change "Peer" to "Local" when you moved those lines. Change "Local" back to "Peer" and try again.

Update: Note the >>>Tagged<<< parts:

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

To this....

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

so the code should look like this:

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

        - tye (but my friends call me "Tye")