$CFG{listen_port} = 43030;

%data = (
	'24.25.32.4' => [
		["192.168.0.3","43035"],
		["192.168.0.3","43040"],
	],
);

$socket = IO::Socket::INET->new(LocalPort => $CFG{listen_port}, Type => SOCK_DGRAM, Proto => 'udp') || die "ERROR: can't open socket\n";
while ($socket->recv($in, 1024) ) {
	$ip = inet_ntoa($socket->peeraddr);
#		print "Info from $ip";
		foreach(@{$data{$ip}}){
			my $tip = ${$_}[0];
			$sock = IO::Socket::INET->new(Proto => 'udp', PeerPort => $data{$ip}[$tip][1], PeerAddr => $data{$ip}[$tip][0]);
			$sock->send($in) or die "send: $!";
			print "Sent to $data{$ip}[$tip][0]:$data{$ip}[$tip][1]\n";
		}
		print $in;
}