Help for this page

Select Code to Download


  1. or download this
    while ($socket->recv(my $in, 1024) ) {
   my $sock = IO::Socket::INET->new(
...
       >>>Peer<<<Addr =>'127.0.0.1:50000');
   print $sock $in;
}
  2. or download this
    my $sock = IO::Socket::INET->new(
   Proto => 'udp', 
...
while ($socket->recv(my $in, 1024) ) {
   print $sock $in;
}
  3. or download this
    my $sock = IO::Socket::INET->new(
   Proto => 'udp', 
   PeerAddr =>'127.0.0.1:50000');
while ($socket->recv(my $in, 1024) ) {
   print $sock $in;
}