#!/usr/bin/perl
use strict;
use warnings;
use SOAP::Lite 
	+autodispatch => 
		uri   => 'http://www.perlmonks.org/Object',
    	proxy => 'http://localhost/cgi-bin/soap.pl';

my $obj = Object->new();

for ( qw'So how is it possible that it stores and returns these? ???' ) {
	$obj->set( $_ );
	print $obj->get, "\n";
}
print join ' ', @{ $obj->all };