# server

my $server = SOAP::Transport::HTTP::Apache->new;
$server->dispatch_with({
	'http://jewels.bgs.sk/Factory' => $factory,
});

sub handler { $server->handler(@_) };


# client

my $soap = SOAP::Lite
	->uri('http://jewels.bgs.sk/Factory')
	->proxy('http://jewels.bgs.sk/soap');

my $object = $soap->instantiate('My::User','whateverId')->result;