use RPC::XML::Client; my $client = RPC::XML::Client->new('http://www.advogato.org/XMLRPC'); my $result = $client->send_request('test.guess'); die $result unless defined($result); die $result->code . ': ' . $result->string if $result->is_fault; print join(' ', @{$result->value}), "\n";