my $webcrawler = WWW::Mechanize->new();
my $content = $webcrawler->get($url) || die( "!!etc" );
my $base = $webcrawler->base();