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

#!/Perl/bin/perl

use strict;
use warnings;
use Data::Dumper qw/Dumper/;
use WWW::Leo;

my $leo = WWW::LEO->new();

$leo->query("das meer ist blau");

if ($leo->num_results) {

   print Dumper $leo->en_de();

}else{
    print "Sorry, your query for '%s'gave no results.\n", $leo->query;
}

# ...
$do->command (-label => "Translation", -command => sub {translate($In, $Out)}, -accelerator => 'Crtl-T', -underline => 0);
# ...


=head3 translate($in, $out)

Liest den Textaus dem Eingabe-Widget $in aus und fügt in in das Ausgabe-Widget ein ($out).
Ein- und Ausgabewidget müssen vom Typ Tk::Text sein.

=cut

sub translate {
    my $in    = shift;
    my $out   = shift;

    my $text = $in->getSelected();

    # Übersetzung

    $out->insert('end',$text);
}