use IO::Socket::INET;

my $socket = IO::Socket::INET->new(
	'PeerAddr' => '192.168.1.100',
	'PeerPort' => 29900,
	'Proto'    => 'udp',
	'Timeout' => 15
);
$socket->autoflush(1);
$socket->send($query);
$socket->recv(my $response, 1024 * 5);
print $response;