#!/usr/bin/perl -w
use strict;

my ($domain,$url);
open (IN, "wget -o /dev/null -O - http://www.iro.umontreal.ca/contrib/po/registry/registry.sgml|") 
   || die "Can't get the TP registry\n";
while (<IN>) {
    last if m,</domains>,;
    $domain = $1 if m,<domain>(.*)$,;
    if (m,<url>(.*)$,) {
	$url = $1;
	if ($url =~ m,gz$,) {
	    print "domain=$domain ; url=$url\n";
	}
    }
}