#!/usr/bin/env perl                                                                                                          

use strict;
use warnings;

use Bio::TreeIO;
use Bio::Tree::TreeFunctionsI;
use Bio::Tree::Tree;
use Data::Dumper;
use Bio::Seq;
use Bio::SeqIO;
use Bio::Tree::Node;

my $usage = "usage: $0 treeFile \n";
my $treeFile = $ARGV[0] or die $usage;

my @stored;

my $treeio = new Bio::TreeIO('-format' => 'newick',
                             '-file' => $treeFile);
my $tree = $treeio->next_tree();
my $root_node = $tree->get_root_node;
my @nodes = $tree->get_nodes();
#push (@nodes, $root_node);
$tree->splice(-keep_node => \@nodes);
exit(0);