use strict;

use SOAP::Lite;
use Data::Dumper;

my $soap = SOAP::Lite
   ->uri("http://127.0.0.1/Factory")
   ->proxy("http://127.0.0.1/mod_soap");

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

print Dumper $object;
#$VAR1 = bless( {
#                   'artist' => 'Van Halen',
#                   'title' => 'You Really Got Me',
#                   'id' => '5',
#                   'year' => '1999'  hmm, aparently wrong
#                 }, 'My::User' );

$object->year(1978);  # modify the year

# aaaagrh, it does not work!