Select Code to Download

my $resp = $mech->response;
if($resp->is_success) { # or $mech->success
...
# alternatively, if you have $resp->is_error, you may want to print ou
+t the error itself:
$resp->error_as_HTML;
}