#!/usr/bin/perl
#

use IO::Socket::INET;

     $sock = IO::Socket::INET->new(PeerAddr => '127.0.0.1:30003');
     $udpsock = IO::Socket::INET->new(Proto => 'udp', PeerPort => '30003', PeerAddr => 'api.mudkips.net');


     while ($k = <$sock>) {
	$udpsock->send($ARGV[0].','.$k);	

     };