my $mech = WWW::Mechanize->new();
  $mech->requests_redirectable([]);
  $mech->get($url);
  print $mech->response->code . " " . $mech->response->header("Location");