use strict;
use warnings;
use Data::Dumper;
use LWP::UserAgent;
use JSON::PP;


my $ua = LWP::UserAgent->new( );
$ua->agent("Mozilla");
my $segment = "Science | Research | Artificial Intelligence";

my $url='https://translate.googleapis.com/translate_a/single?client=gtx&sl=en&tl=fr&dt=t&q=' . $segment;
my $req = HTTP::Request->new(GET => $url);
my $res = $ua->request($req);

if ($res->is_success) {

    my $json_text      = $res->content;
    my $a_decoded_json = decode_json( $json_text );
    my $a_records      = $a_decoded_json->[0];

    foreach my $a_record (@$a_records) {
        print "Translation for $a_record->[1] is $a_record->[0]\n";
    }

} else {
    print "\nError connecting to server\n";
}

##</code><code>##

-*- mode: compilation; default-directory: "d:/tmp/pm/" -*-
Compilation started at Sun Sep 12 13:15:11

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/google_translate.pl 
Translation for Science | is Sciences | 
Translation for Research | is Recherche | 
Translation for Artificial Intelligence is Intelligence artificielle

Compilation finished at Sun Sep 12 13:15:12