sub from_handle {
    my $self = shift;
    my %opts = @_;
    my $taxa = new Phylo::Taxa;
    my $version = $self->VERSION;
    while (<$opts{-handle}>) {
        if ( $_ ) {
            my $taxon = new Phylo::Taxa::Taxon;
            my $date = localtime;
            my $description = qq{Read from $opts{-file} using Phylo version $version on $date};
            $taxon->name($_);
            $taxon->desc($description);
            $taxa->insert($taxon);
        }
    }
    return $taxa;
}