Select Code to Download

#!/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!");
}