googletrans_ja_en.pl

#!/usr/bin/perl 
use strict;
use warnings;

use WebService::Simple;
use Encode;

my $text = join " ", @ARGV;

my $googletrans = WebService::Simple->new(
    base_url => 'http://ajax.googleapis.com/ajax/services/', 
    response_parser => 'JSON', 
    params => {v => '1.0', langpair => 'ja|en'}, 
);

my $response = $googletrans->get(
    'language/translate', { q => $text}
);

print encode_utf8($response->parse_response->{responseData}->{translatedText}), "\n";