Select Code to Download

my $m = new WWW::Mechanize;
my $ROOT = "/path/to/download/directory";
...
  }
}
visit("file:$ROOT/index.html");

<a href="/foo"></a>
  -- $link->url_abs is "file:/foo"
<a href="../bar"></a>
  -- $link->url_abs is "file:/path/to/download/bar"