<![CDATA[
#!perl -w
use strict;
# example usage:
# perl read_seq.pl simple.fasta fasta
# perl read_seq.pl ../overview/library.gb genbank
use Bio::SeqIO;
my $usage = "$0 file format\n";
my $file = shift or die $usage;
my $format = shift or die $usage;
my $inseq = Bio::SeqIO->new(-file => "<$file", -format => $format );
# Display each sequence description to screen
while ( my $seq = $inseq->next_seq( ) ) {
print $seq->description,"\n";
}
exit(0);
]]>