Help for this page
#!/usr/bin/perl -w $|++; use strict; ... my ($datagram,$flags); $response->recv($datagram,42,$flags); print "Got message from ", $response->peerhost,", flags ",$flags || "n +one",": $datagram\n";
#!/usr/bin/perl -w $|++; use strict; ... my $response = IO::Socket::INET->new(Proto=>"udp",PeerHost=>$ipaddr, +PeerPort=>2424); $response->send("PONG!"); }
www.com | www.net | www.org
No recent polls found