Bio::TreeIO::tabtree Question

Greetings,

I've got a question regarding Bio::TreeIO::tabtree

I want to draw phylogenetic trees in via ASCII and was quite happy to find 
tabtree.  I inputed a newick file that contained the tree:
(B,(A,C,E),D);

In my output file, I got this:

       B
       D

               A
               C
               E


I was expecting that there would be branches (ie: " ---" ) linking the 
letters together.
What's wrong?


Many thanks for your time!  Any suggestions/comments would be greatly 
appreciated.
My code is below:
#!/usr/bin/perl -w

use Bio::TreeIO;

my $treeFile = "newickTreeFile.txt";
my $in = new Bio::TreeIO(-file => "$treeFile", -format => 'newick');
my $out = new Bio::TreeIO(-file => '>output', -format => 'tabtree');
while( my $tree = $in->next_tree ) {      $out->write_tree($tree);  }

_________________________________________________________________
Add photos to your messages with MSN 8. Get 2 months FREE*.  
http://join.msn.com/?page=features/featuredemail