[lexagon@zion]#: cat /home/alina/writenews.pl

  use WWW::Google::Translate;
  my $wgt = WWW::Google::Translate->new( { key => 'key' } );

  my $r = $wgt->translate(
      {   q      => 'My hovercraft is full of eels',
          target => 'ja',
      }
  );

  for my $trans_rh ( @{ $r->{data}->{translations} } ) {

      print 'detected language: ', $trans_rh->{detectedSourceLanguage}, "\n";
      print $trans_rh->{translatedText}, "\n";
  }