#!/usr/bin/perl -w

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

my $sock = IO::Socket::INET->new(
    PeerHost => '127.0.0.1',
    PeerPort => '26000',
    Proto    => 'udp'
) or die "ERROR in Socket Creation : $!\n";

$sock->send("Hello!");

print "Try recv\n";

my $msg;
$sock->recv($msg, 8192) or die "recv: $!";

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

close($sock);