#!/usr/bin/perl -s

use Text::Translator;
use Lingua::PT::PLNbase;

our ($l); 
my $usage ="$0 [-l=en:pt file]\n";
my $tmp = "_${$}_";

my $file=shift or die($usage);
fsentences({tokenize => 1, output => $tmp}, $file);

my $lang = $l || "en:pt";

my $dicd = "/home/jj/DIC";
my $t= Text::Translator->new(
  dicf => ["$dicd/en2pt.dict","/$dicd/en2pt.auto.dict"], 
  dicaf =>[], 
  lang => "en:pt");

open (F,$tmp) or die ("Error: cant open temp. file $temp\n");
$/ = "</s>\n";

while(<F>){
	my $chomp =chomp;
	my $start = "";
	$start = $1  if s/(.*>)//s ;

	my $t1 = $t->t(lc($_)); 

	if ($chomp) { print "$start$t1$/";}
	else        { print "$start";}
}

unlink($tmp);