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