my $r = eval { $f->( @_ ) };
unless ($r) {
  my $err = $@;
  confess "Error calling SOAP method $op: $err";
}