#!/usr/bin/perl

...(slide 5) 

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

sub apt{ libmorfo_perl::....   }

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

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

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

         $tu;
      });
}