#!/usr/local/bin/perl
use constant MYPORT => 10002;
use constant REMOTEPORT => 10001;
use constant REMOTEHOST => '192.168.23.1';
use constant STRING => 'PING';

use Socket;
use IO::Socket;

# create a socket
my &#36sock = new IO::Socket::INET(LocalPort => MYPORT, Proto => 'udp')
    or die "Can't create socket: &#36!";

my (&#36remote,&#36input,&#36c);
&#36remote = sockaddr_in(REMOTEPORT, inet_aton(REMOTEHOST));
my &#36rc = &#36sock->send(STRING,length(STRING),&#36remote);
die "&#36! &#36@" unless &#36rc;
&#36rc = &#36sock->recv(&#36input,32768,0);
die "&#36! &#36@" unless &#36rc;
print "received: &#36input\n";