#!/usr/bin/perl

use strict;
use warnings;
my $Fdir;

BEGIN{
$Fdir = "../F";
mkdir $Fdir;
};
my $ver="8.0";
my $fl = "Bosque_CP_$ver.SimTreeML.xml";

system("wget http://www.linguateca.pt/Floresta/ficheiros/gz/$fl.gz");
system("gunzip $fl.gz");

# rename ($fl, "$Fdir/f.xml");
system("sed -e 's/\</«/g' -e 's/\>/»/g' $fl > $Fdir/f.xml");

use Data::Dumper;
##print Dumper(getmeta());
use Lingua::Treebank::SimTreeML dir=> $Fdir, id => "test";

compileTB("$Fdir/f.xml")

__END__
use Lingua::Treebank::SimTreeML 
  dir=>"../F/",
  id => "test";