#!/usr/bin/perl

use RPC::XML::Client;
use CGI;


my $query = new CGI();
my $node = $query->param("node");

my $client = new RPC::XML::Client('http://localhost:9500/');
my $req = RPC::XML::request->new('oma.latest_at',$node);
my $res = $client->send_request($req);
my $set = $res->value;
print $query->header('text/xml');
print $set;

