#!/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__