use File::Copy qw (copy);
my $lang = defined($ENV{'LANG'}) ? $ENV{'LANG'} : 'en';
my $target_pod = File::Spec->catfile('lib','Unicode','MapUTF8.pod');
if ($lang =~ m/^(ja|ja_JP|ja_JP.utf-8|ja_JP.utf8|ja.utf8|ja.utf-8)$/i) {
    $source_pod = File::Spec->catfile('pod','MapUTF8.ja_JP.utf8.pod');
    copy ($source_pod, $target_pod);

} elsif ($lang =~ m/^(ja_JP.eucjp|ja_JP.euc|ja_euc|ja_eucjp)$/i) {
    $source_pod = File::Spec->catfile('pod','MapUTF8.ja_JP.eucjp.pod');
    copy ($source_pod, $target_pod);
} else {
    $source_pod = File::Spec->catfile('pod','MapUTF8.en.pod');
    copy ($source_pod, $target_pod);
}