Now invoke methods on our Perl 'bean' using a Java bean patterned API; i.e. we can invoke setColor() and setCountInStock() from Perl.

use Arachna::SOAP::Vector;
use SOAP::Lite
  service => 'http://localhost:8080/fogkids/services/ApparelItem?wsdl';
use ApparelItemBean;

my $item = lookup(1024);
print 'lookup(1024) got type: ', ref $item, "\n";
dump_bean($item);
# now treat it the way a Java programmer would a bean...
$item->setColor('Black'); # I want to paint it black
$item->setCountInStock(10000);
print "after setColor(..), setCountInStock(..) invoked\n";
dump_bean($item);

sub dump_bean {
    my $bean = shift;
    while (my($k,$v)=each %$bean) {
        print "\t$k => $v\n";
    }
}