Example Of Translating in Perl With WWW::Babelfish

#!/opt/local/bin/perl -w
/nuse strict;
/nuse warnings;
/nuse WWW::Babelfish;

$obj = new WWW::Babelfish(service => Babelfish, agent => Mozilla/8.0, proxy => "");

die("Babelfish server unavailablen") unless defined($obj);

$it_text = $obj->translate(

'source'   => 'Italian',

'destination' => 'German',

'text'    => 'Questo serve solo per testare',

'delimiter'  => "n",

);

print $it_text;