Help for this page

Select Code to Download

Select or download this

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

Select or download this

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