#open up the hmmsearch result file
my $in = Bio::SearchIO->new(-format => 'hmmer3',-file => $argument);
while (my $result = $in->next_result ){
# get a Bio::Search::Result::HMMERResult object
print $result->query_name, " for HMM ", $result->hmm_name, "\n";
while (my $hit = $result->next_hit ){
my $score = $hit->raw_score();
my $evalue = $hit->significance();
my $hitid = $hit->name();
print $hitid;
}
}