gistfile1.txt

#!/usr/bin/env perl

use strict;
use warnings;

use Mojo::Client;
my $client = Mojo::Client->new;

my $url = Mojo::URL->new("https://www.googleapis.com/language/translate/v2")->query(
  key => 'AIzaSyAVlesUTcrwoEKw9fZ_LzPm6aERyLvm39E',
  q => scalar do { local $/; <> },
  target => "fr",
);

my $response = $client->get($url)->res;

use Data::Dumper;
print STDERR Data::Dumper->Dump([ $response ],[split /,\s*/,q[$response]]);