#!/usr/bin/perl -w

use strict;
use RPC::XML::Client;

my $client  = RPC::XML::Client->new('http://localhost:9000/');

my @files = qw(small.txt small.xml);
my ($request, $response);


foreach my $file (@files) {
    print "Fetching text file $file\n";

    $request    = RPC::XML::request->new('dump_file', $file);
    $response   = $client->send_request($request);

    display_response($response);
}

sub display_response {
    my $response = shift;

    if (ref($response) && $response->can('as_string')) {
        print "Displaying response object contents:\n",
            $response->as_string(), "\n";
    } else {
        print "Displaying response as plain text:\n", $response, "\n";
    }
}