use Bio::SeqIO;
use strict;
my $in = Bio::SeqIO->new(-format =>'genbank',-file => $file);
# print the sequence from the genbank file
while( my $seq = $in->next_seq ) {
 print $seq->seq(), "\n";
}