#!/usr/bin/perl
use Data::Dumper;
use Frontier::Client;

## setting $debug to 1 will print the actual xml sent to and from the server to STDERR

my $debug = 0;


my $client = Frontier::Client->new( url => "http://archimedes.mpiwg-berlin.mpg.de:8098/RPC2",

				 debug => $debug);


my $res = $client->call(lemma, "-L",['est','trutina']);
print STDERR "call: lemma, \"-L\",['est','trutina']\nreturn:\n";
print STDERR Dumper $res;


my $res = $client->call(lemma, "-L",['est','trutina','howdy'],'full'), "\n";
print STDERR "\ncall: lemma, \"-L\",['est','trutina','howdy'],'full'\nreturn:\n";
print STDERR Dumper $res;



my $res = $client->call(lemma, "-DE",['Fuchs','Igel','fiddle'],'full'), "\n";
print STDERR "\ncall: lemma, \"-DE\",['Fuchs','Igel','fiddle'],'full'\nreturn:\n";
print STDERR Dumper $res;