my $resp = $mech->response;
if($resp->is_success) { # or $mech->success
# do successful stuff
} else {
# you have failed to get a proper response, inspect what's left of it
$resp->status_line; 
# alternatively, if you have $resp->is_error, you may want to print out the error itself:
$resp->error_as_HTML;
}