#!/usr/local/bin/perl

use RPC::XML::Client;
use Data::Dumper;

use common::sense;

my $server = RPC::XML::Client->new('https://www.upcdatabase.com/rpc');

my $response = $server->send_request(@ARGV);	# first parameter is method name

print Dumper($response->value);

__END__