[Bioperl-l] treeio->write_tree problem

[Jim Hu]

Help! In the script below, I'm not getting any output from treeio->write_tree.  Dumper shows that the tree is populated.

Jim

use Data::Dumper;
use Bio::TreeIO;
my $treeio = new Bio::TreeIO(-file   => "PF03466_seed.nhx.txt",
                            -format => "newick");
while( my $tree = $treeio->next_tree ) {
	$treeio->write_tree($tree);
	print Dumper($tree);

}

=====================================
Jim Hu
Associate Professor
Dept. of Biochemistry and Biophysics
2128 TAMU
Texas A&M Univ.
College Station, TX 77843-2128
979-862-4054