sub translate {
   my $text = $In->getSelected();
   $Out->insert('end',$text);
}