#!/usr/bin/perl -wT

use strict;
use LWP::Simple;
use XML::Simple;

my $config = XML::Simple::XMLin("test.xml");

my $base = $config->{base};

if ($base =~ m{^(http://[\w\.\/\-]+)$}) {
    $base = $1;
} else {
    print $base, " didn't match\n";
}

print get("$base/index.html");