Select Code to Download

#!/localperl/bin/perl
use strict;
...
while ( my $seq = $in->next_seq() ) {
        print $out->write_seq($seq), "\n";
}

------------- EXCEPTION: Bio::Root::Exception -------------
MSG: The sequence does not appear to be FASTA format (lacks a descript
+or line '>')
...
STACK: tmhmm.pl:12
-----------------------------------------------------------