use Bio::SeqIO;
my $seqio_obj = Bio::SeqIO->new(-file => "sequence.fasta", -format => "fasta" );

while (my $seq_obj = $seqio_obj->next_seq){
  print "Sequence id: ".$seq_obj->display_id."\n";
  print "Sequence: "$seq_obj->seq."\n";
}