I do something like

$mech = new WWW::Mechanize;
$mech->get("http://domain.com/page");
print $mech->base;
[download]

It prints 'http://domain.com/page' although the page contains the line <base href="http://domain.com/">. As a result, all the (relative) links are broken:

for ($mech->links) {
   print $_->url_abs, "\n";
}
[download]

prints things like "http://domain.com/page/page2" instead of "http://domain.com/page2"

Any way to fix it, without the need to regex the page myself for the Base tag?

Thanks!