#!/usr/bin/perl

use strict;
use XML::TMX::Reader;
my $l1="pt";
my $l2="en";

sub apt{ uc($_[0])}
sub aen{ uc($_[0])}

for my $file (@ARGV){
  my $tm = XML::TMX::Reader->new($file);

  if (not defined $l1) {
    ($l1,$l2) = sort ($tm->languages);
    print "Using languages: $l1/$l2\n"
  }

  $tm->for_tu(
      { output => "$file._" },
      sub {
         my $tu = shift;

         $tu->{$l1} = apt($tu->{$l1});
         $tu->{$l2} = aen($tu->{$l2});
         $tu;
      });
}