use Bio::SeqIO;
$in = Bio::SeqIO->new(-file => '$inputfile',
                      -format => 'fasta');
while (my $seq = $in->next_seq() ) {
    print "fasta tag: ", $seq->id(),
          "sequence: ", $seq->sequence(), "\n";
}