#!/usr/bin/perl

use strict;
use warnings;

use IO::Socket;
use IO::Select;
use IO::Handle;

my $g_masterserver_address = "*.*.*.*";
my $g_masterserver_port    = "27501";
	
	my $timeout = 0;

	my $address        = $g_masterserver_address;
	my $port           = $g_masterserver_port;
	my $dest           = sockaddr_in($port, inet_aton($address));
	my ($rin, $rout, $test);

	my $msg = chr(0xff).chr(0xff)."Z".chr(0xff);
	my $s_socket;
	my $proto = getprotobyname('udp');
	socket($s_socket, AF_INET, SOCK_DGRAM, $proto);
	my $bytes = send($s_socket, $msg, 0, $dest);
	print("sent $bytes bytes to '$address:$port'");
	my $buffer = '';
	my $s_output;
	
	while (my $rc = $s_socket->recv($s_output, 1024) ) {
		print $s_output;
		$buffer .= $s_output;
	}

exit(0);