#!/usr/bin/perl -w

use Socket;
use Data::Dumper;
use warnings;
use strict;

socket(SOCK, PF_INET, SOCK_DGRAM, getprotobyname("udp")) or die "socket: $!";

my $ipaddr   = inet_aton('127.0.0.1');
my $portaddr = sockaddr_in(26000, $ipaddr);

my $msg = "Hello!";
send(SOCK, $msg, 0, $portaddr) == length($msg) or die "cannot send to $!";

print "Try recv\n";

$msg = '';
$portaddr = recv(SOCK, $msg, 8192, 0) or die "recv: $!";

if ($msg) {
    my ($port, $ipaddr) = sockaddr_in($portaddr);
    print join(':', $ipaddr, $port)."\n";
    print $msg,"\n";
}

close(SOCK);