Using translation tools: babelfish / google / yahoo

Languages: Chinese-simp, Chinese-trad, Dutch, English, French, German, Greek, Italian, Japanese, Korean, Portuguese, Russian, Spanish


 use strict;
 use warnings;
 use WWW::Babelfish;
 # text to translate
 my $text_source = 'I like to test this service.';
 # create the Babelfish service
 my $service = WWW::Babelfish->new(
     service => 'Babelfish',
 # check for errors
 if (not defined $service) {
     die "Babelfish server unavailable";
 # show text to be translated
 print "[EN] $text_source\n";
 # translate to Italian
 my $text_target = $service->translate(
     source          => 'English',   # source language
     destination     => 'Italian',   # destination language
     text            => $text_source,    # text to translate
 if (not defined $text_target) {
     print "Error while translating to Italian";
 else {
     print "[FR] $text_target\n";