#!/usr/bin/env perl

# Translate the given place into the given language
#	"translate Dover fr" will print Douvres
#	"translate England fr" will print Angleterre

use strict;
use warnings;
use Locale::Places;

die "$0: Usage place language-code" unless(scalar(@ARGV) == 2);

my $place = ucfirst(lc($ARGV[0]));
my $language = lc($ARGV[1]);
if($language !~ /^[a-z]{2}$/) {
	die "$0: Usage place language-code";
}

print Locale::Places->new()->translate(place => $place, from => 'en', to => $language), "\n";
