use SOAP::Lite
 +autodispatch =>
 uri => 'http://my.server.com/My/Class',
 proxy => 'http://my.server.com/soap';

my $o = My::Class->new('bar');
print $o->method('drink');