my $response = $mech->get($location);
print "REQUEST: \n" . $response->request->as_string ." --REQUEST\n";