my $response = $mech->response();
print $response->status_line(), "\n";
print $response->headers()->as_string();