#!/usr/local/bin/perl

use Frontier::Client;
use Data::Dumper;

use common::sense;

my $coder = Frontier::RPC2->new;

my $server = Frontier::Client->new( 'url' => 'https://www.upcdatabase.com/rpc', debug => 1, );

my $method = shift;

my $result = $server->call($method, map { $coder->string($_) } @ARGV);

print Dumper($result);

__END__