carlosp420

#!/usr/bin/perl -w

#this script converts a tree ouput from TNT to NEXUS (1 tree per file)
# Carlos Peña 2011-03-16

use strict;
use Bio::TreeIO;
        my $usage = "script.pl INFILE OUTFILE\n";
        my $infile = shift or die $usage;
        my $outfile = shift or die $usage;