#!/usr/bin/perl -wT
use strict;
use HTML::TableExtract;
use LWP::Simple;
my $te = new HTML::TableExtract();
my $html = get('http://pvpgnservers.ath.cx/') or die;
$te->parse($html);
for my $row ($te->rows) {
print "@$row\n" if $row->[1] eq 'Pure-Dream';
}