$s = SOAP::Lite
     ->proxy("http://$machine:$port")
     ->on_fault(sub{});
$r = $s->test_connection;
unless (defined $r && defined $r->envelope) {
  return 'NOGO:', $s->transport->status, "\n";
}

return $s->call(@_)->result;