sub translate {
   my $text = $In->getSelected();
   my $babel = WWW::Babelfish->new( service => 'Babelfish', agent => 'Internet Explorer/7.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');
}