sub translate {
  my $text = $In->getSelected();
  my $leo = WWW::LEO->new();
  $leo->query($text);
  if ($leo->num_results) {
    my $arrayref = $leo->de_en();
    $Out->insert('end', $arrayref->[0]);
  }
}