use strict;
use Frontier::RPC2;
my $coder = Frontier::RPC2->new(use_objects => 1);
my $result = [ "you guessed", 42 ];
my $xml_string = $coder->encode_response($result);
print $xml_string,"\n";