Help for this page
>header1 AGACATGATCGACTGGACACAATTTACGTAGCTG >header2 AAATACTAGGGCAACACACACACACACCACACAC >header3 AGTTAGTCCAGTAGTTTACAGTACGACTGATCGT
my $fasta = $ARGV[0]; my $seqio = Bio::SeqIO->new(-file => $fasta); while(my $seqobj = $seqio->next_seq) { ... while (<$IN2>) { # Subsample the FASTA sequences }