#!/usr/bin/perl

use strict;

local $SIG{__WARN__}=sub{};

use lib '/home/my_user/lib';
use Getopt::Long;

my $DEBUG;
my $result = GetOptions ("d" => \$DEBUG);

if ($DEBUG) {
   eval "use SOAP::Lite +trace => 'debug';";
} else {
   eval "use SOAP::Lite;";
}

print SOAP::Lite
   -> uri("urn:Hello")
   -> proxy('http://my.domain.com/perl/hello.cgi') # mod_perl
#   -> proxy('http://my.domain.com/cgi-bin/hello.cgi') # mod_cgi
   -> hello()
   -> result . "\n";