sub translate {
   my $text = $In->getSelected();
   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;}
   $Out->insert('end',$leo);
}