$translate=$_POST['translate']; 
 
use Lingua::Translate::config 
( 
 backend => "Babelfish", 
 babelfish uri => 
 'http://babelfish.yahoo.com/translate txt', 
 $ua => LWP::UserAgent->new(), 
 ); 
 
my $translate = Lingua::Translate->new(src => "en", dest=> "fr", "en", "de", "en", "it", "en", "pt", "en", "es", "en"); 
 
# prints "My hovercraft is full of eels" 
print $translate->translate();

use strict; 
use warnings;

<form method="post" action="/Masks/In%20the%20process%20of%20transition.php"> 
<input type="hidden" name="submit" value="true" /> 
<textarea name="translate" cols="56" rows="5"></textarea> 
<br /><br /><input type="submit" value="submit"></form><hr /></html>

#!/usr/bin/perl 
 use strict; use warnings; 
 use WWW::Babelfish; 
 use Getopt::Long; 
 use IO::Prompt;          
 
 # map the language codes 
 my %language_code = ( 
     fr  => 'French', 
     es  => 'Spanish', 
     de  => 'German' 
 );          
 
 # parse command line arguments 
 my $translate_to_code; 
 my $result = GetOptions( 
     'translate-to=s' => $translate_to_code, 
 ); 
 if (not $result) { 
     die "usage: ./translator.pl --translate-to fr | es | den"; 
 } 
 if (not defined $translate_to_code) { 
     die "usage: ./translator.pl --translate-to fr | es | den"; 
 } 
 if ($translate_to_code !~ /(fr)|(es)|(de)/) { 
     die "usage: ./translator.pl --translate-to fr | es | den"; 
 }          
 
 # print instructions      
 print "nn"; 
 print "Interactive Language Translator.n"; 
 print "Enter text to translate at prompt.n"; 
 print "Type 'EXIT' to quit.nn";          
 
 # create the Babelfish service 
 warn "Connecting to Babelfish service ...n"; 
 my $service = WWW::Babelfish->new( 
     service => 'Babelfish', 
 );          
 
 # check for errors 
 if (not defined $service) { 
     die "Babelfish server unavailablen"; 
 }          
 
 # loop while input is available 
 while ( prompt "text> " ) { 
     chomp;          
 
     # check if we need to exit 
     if ($_ =~ /^EXIT$/i) { 
         warn "Exiting ...n"; 
         exit; 
     }          
 
     # translate 
     warn "Translating ...n"; 
     my $translated_text = $service->translate( 
         source        => 'English',   # source language 
         destination   => $language_code{$translate_to_code},   # destination language 
         text          => $_           # text to translate 
     ); 
     if (not defined $translated_text) { 
         warn "Error while translating.n"; 
     } 
     else { 
         # output the translated text 
         print "[" . uc $translate_to_code . "] $translated_textn"; 
     } 
 }

lwp

# user/bin/perl