#!/usr/bin/perl -w

use Bio::SearchIO;

my $blast_report = new Bio::SearchIO ('-format' => 'blast',
			              '-file'   => $ARGV[0]);
my $result = $blast_report->next_result;

while( my $hit = $result->next_hit()) {    
  print "\thit name: ", $hit->name(), "\n";    
  while( my $hsp = $hit->next_hsp()) { 	
    print "E: ", $hsp->evalue(), " frac_identical: ",	$hsp->frac_identical(), "\n";
  }
}
