http://www.google.com ##

##

#!/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");

##

##

Insecure dependency in connect while running with -T switch at /usr/local/lib/perl5/5.8.4/i686-linux/IO/Socket.pm line 114.

##

##

print get($base);