#!/usr/local/bin/perl

#
# Get an RPC key assigned on the "Account Info" page on http://www.upcdatabase.com/
# Then substitute your own RPC key for $key below.
#
# Usage examples:
#   perl_example_new.pl test
#   perl_example_new.pl help
#   perl_example_new.pl lookup upc 012000000850
#   perl_example_new.pl lookup ean 0012000000850

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

use strict;

my $server_name = 'www.upcdatabase.com';

my $key = '0000000000000000000000000000000000000000';

my $server = Frontier::Client->new( 'url' => 'http://' . $server_name . '/xmlrpc', debug => 0, );

my $method = shift;

my $result = $server->call($method, { rpc_key => $key, @ARGV } );

print Dumper($result);

__END__