use WWW::Babelfish;

$obj = new WWW::Babelfish( service => 'Google', agent => 'Mozilla/8.0');
  die( "Google server unavailable\n" ) unless defined($obj);

  $en_text = $obj->translate( 'source' => 'English',
                                  'destination' => 'Spanish',
                                  'text' => "i am mexican with black hair and brown eyes",
                                  'delimiter' => "\n\t",
                                  'ofh' => \*STDOUT);
  die("Could not translate: " . $obj->error) unless defined($en_text);

  @languages = $obj->languages;