my $seqio = Bio::SeqIO->new(-format => $seqformat, -file =>$filename);
while( my $seq = $seqio->next_seq ) {
 print "seq name is ", $seq->display_id, 
       " desc is ", $seq->description(), "\n";
 print "sequence is ", $seq->seq(), "\n";
}