$sequence = $seqIO->next_seq()

Fetch the next sequence from the stream.
$seqIO->write_seq($sequence [,$another_sequence,...])

##</code><code>##

 # The SeqIO system does have a filehandle binding. Most people find this
 # a little confusing,

##</code><code>##

    while ( my $seq = $in->next_seq() ) {
       print "Sequence ",$seq->id, " first 10 bases ",
             $seq->subseq(1,10), "\n";
    }

##</code><code>##

while( my( $id, $seq ) = <$tiedFasta> ) {
       say "Sequence $id first 10 bases ", substr( $$seq, 0, 9 );    
]

##</code><code>##

substr{ $$seq, $_, 12 ) =~ m[...] for 0 .. length( $seq ) - 12;