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