translate.pl

#!perl
use strict;
use warnings;
use Config::Pit;
use Net::Google::DocumentsList;

# en: english
# zh-TW: Taiwanese

my $target = shift || 'en';

my $cli = Net::Google::DocumentsList->new(pit_get('google.com'));
my $item = $cli->add_item(
    {
        file => 'osdc.txt',
        source_language => 'ja',
        target_language => $target,
    }
);
$item->export(
    {
        format => 'txt',
        file => 'osdc.'.$target,
    }
);
$item->delete({delete => 1});