sub translate {
    use WWW::Babelfish;
    
    my $text = $In->getSelected();
    my $babel = WWW::Babelfish->new( service => 'Babelfish', agent => 'Mozilla/8.0' );
    die ( "Babelfish server unavailable\n" ) unless defined($babel);

    my $eng_text = $babel->translate( 
        'source' => 'German',
        'destination' => 'English',
        'text' => $text,
        'delimiter' => "\n\t",
        'ofh' => \*STDOUT 
    );

    $Out->insert('end', $eng_text || 'No Translation available');
}