sub check_url {  # given an absolute URL
  my $url = $_[0];
  my $resp = $browser->head($url);
  if(!$resp->is_success) {
    print $url, "\n => ", $resp->status_line, "\n";
  } elsif($resp->previous and $resp->previous->is_redirect) {
     check_url($resp->request->url);
#    print "## Moved $url\n##  => ", $resp->request->url, "\n";
  } else {
    print "## OK: $url\n";
  }
}