#!/usr/bin/perl -w
use strict;
use Bio::TreeIO;
my $usage = "script.pl INFILE OUTFILE\n";
my $infile = {FNAMEL}.html">shift or {FNAMEL}.html">die $usage;
my $outfile = {FNAMEL}.html">shift or {FNAMEL}.html">die $usage;

my ($filein,$fileout) = @ARGV;
my ($format,$oformat) = {FNAMEL}.html">qw(nexus newick);
    my $in = Bio::TreeIO->new(-file => $infile, -{FNAMEL}.html">format => $format);
my $out= Bio::TreeIO->new(-{FNAMEL}.html">format => $oformat, -file => ">$outfile");
     
    while( my $t = $in->next_tree ) {
      $out->write_tree($t);
    }