my $response = eval { $app->view_restricted_resource ... };
  unless( $response ){
    warn "ERROR $@ ";
    $response = $app->res; # WWW::Mechanize cache it for you
  }
  print  $response->content;