#!/usr/bin/perl
# Using Bioperl write a program to read a sequence file (EMBL,
# GenBank) and to reformat it, producing as output a tab-delimited
# file containing this information
#  ID  DESCRIPTION  LENGTH
# Hint:  Use the Bio::SeqIO module

use Bio::SeqIO;

$input = Bio::SeqIO->newFh( -format => 'EMBL',
				-fh => \*ARGV);

while ( $seq = <$input> ) {
	print $seq->id(), "\t", $seq->desc(), "\t", $seq->length(), "\n";
}
