translate('Eimer');
sub translate {
 my $text = shift;
 my $leo = WWW::LEO->new();
 $leo->query($text);
 if ($leo->num_results) {
   print Dumper $leo->en_de();
 } else {
   print "Sorry, your query for '%s'gave no results.\n", $leo->query;}
   print "$leo\n";
}