#!/usr/bin/perl -w
$|++;
use strict;
use IO::Socket;

my $response = IO::Socket::INET->new(Proto=>"udp",LocalPort=>2424)
  or die "Can't make UDP server: $@";

my $message = IO::Socket::INET->new(Proto=>"udp",PeerPort=>4242,PeerAddr=>"chmrr.mit.edu") 
  or die "Can't make UDP socket: $@";
$message->send("Ping!");

my ($datagram,$flags);
$response->recv($datagram,42,$flags);
print "Got message from ", $response->peerhost,", flags ",$flags || "none",": $datagram\n";