#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket::INET;

print "create socket..\n";

my $sock = IO::Socket::INET->new(
        'PeerAddr'      => '***.***.***.***',
        'PeerPort'      => '27501',
        'Proto'         => 'udp',
);

print "send data request..\n";

$sock->send( "\xff\xffZ\xff" );

print "answer:\n";

while ( my $rc = $sock->recv( my $buffer, 1024 ) )
{
        print $buffer;
} # while

<STDIN>;

__END__