Select Code to Download

#!/usr/bin/perl

...
);
print "Contact to SOAP server at ", $daemon->url, "\n";
$daemon->handle;

#!/usr/bin/perl -l

...
      ? print $res->faultdetail
      : print $soap->transport->status;
  };