my $r = eval {
              my $tmp = $f->( @_ );
              $eval_err = $@;
              $tmp;
            };

            my $err = $@;
            close $fh;
            unless ($r) {
                no warnings 'uninitialized';
                # Retry these errors
                if ( $eval_err =~ /answer is not xml/ ) {
                  if ( $retry-- > 0 ) {
                    Print("[$$] Recieved text/html response. Will retry $op request.");
                    sleep 2;
                    next;
                  }
                }
                confess "Error calling SOAP method $op: [$err][$eval_err]";
            }