I am trying to open the fasta file with sequences. My bio perl script opens the sequence but not with fasta header. How can I get fasta header with bio perl. My script:

#!/bin/perl -w
use Bio::SeqIO;

$seqio_obj = Bio::SeqIO->new(-file=> "no_plasmid.fasta", -format=>"fasta");
$seq_obj = $seqio_obj->next_seq;
$acc = $so->accession_number;

   while($seq_obj = $seqio_obj->next_seq){

             print $seq_obj-> seq, "\n";
}