#!/usr/bun/perl -w
use strict;   #added by me cause perlmonks taught me so :)

use SOAP::Lite +autodispatch =>
    uri=>"World",
    proxy=>'http://soapserver.mycompany.com/soap/soapserver.cgi';

print HelloWorld();
print GoodByeWorld("sweet"); 

##</code><code>##

package World;

sub new {
    bless {}, shift;
};

sub HelloWorld {
    my ($self) = @_;

    return "Hello World\n";
};

sub GoodByeWorld {
    my ($self,$adjective) = @_;
    return "Goodbye $adjective World\n";
}
1; 

##</code><code>##

$ ./soapClientAutoDispatch.pl 
Use of inherited AUTOLOAD for non-method main::HellowWorld() is deprecated at ./soapClientAutoDispatch.pl line 7.
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.6.1/SOAP/Lite.pm line 2374.
Use of uninitialized value in string eq at /usr/lib/perl5/site_perl/5.6.1/SOAP/Lite.pm line 2374.
Use of inherited AUTOLOAD for non-method main::GoodByeWorld() is deprecated at ./soapClientAutoDispatch.pl line 8.
Goodbye sweet World