Untitled

#!/usr/bin/env perl

my $masterhost = 'play.redeclipse.net';
my $masterport = 28800;

use IO::Socket::INET;
$| =1;


my $socket = new IO::Socket::INET (
        PeerHost => $masterhost,
        PeerPort => $masterport,
        Proto    => 'tcp',
        Timeout  => 4,
) or die "Failed to contact master server: $!\n";

#print <$socket>;
print "Connected to master server\n";


my $post = 'update';
print $socket "$post\n";


while (<$socket>)
{
        if( $_ =~ m/addserver\ (\d+).(\d+).(\d+).(\d+)\ (\d+)/)
        {
                print "$1.$2.$3.$4:$5\n";
        }
}

$socket->close();