====== Send a list of wordforms to Latin lemmatizing service ======
Use the following script in a pipe, like this: ''perl persmorphb.pl wordformlistfilename > resultsfilename-json''
<code perl>
#!/usr/bin/perl -w
# persmorphb.pl - sends a list of words to Bamboo/Morpheus morphology service
# usage: perl persmorphb.pl filename
use strict;
use warnings;

require LWP::UserAgent;
my $addr2 = "http://services-qa.projectbamboo.org/bsp/morphologyservice/analysis/word?lang=lat&engine=morpheus&word=";
my $verbum;
my $file = $ARGV[0];

open(STDIN, '<:encoding(utf8)', $file) or die "Could not open '$file' $!\n";

while ($verbum = <STDIN>) {
 	chomp $verbum;
 &uag();
}
sub uag {
 my $ua = LWP::UserAgent->new;
 $ua->timeout(30);
 $ua->env_proxy;
 
 my $response = 
$ua->get($addr2 . $verbum);
 
 if ($response->is_success) {
 	my $content = $response->decoded_content();
if (utf8::is_utf8($content)) {
	binmode STDOUT,':utf8';
} else {
	binmode STDOUT,':raw';
}
print $content;
#    print $response->content( );  # or whatever
     print ",\n";
 }
 else {
     die $response->status_line;
 }
}

</code>