close STDERR;
close STDOUT;
open STDERR, '>', "$outpath/arbol.log";
open STDOUT, ">&STDERR";