[Bioperl-l] Bplite

[nabula easter]

Dear list, 
I have a blast report (atop1.txt) and i am trying to
parse this blast report for sequence name, its high
E-value. for this i tried Bplite module. 

As per bioperl docs, i used this following script, but
unfortunately i did not get any result. i know there
is a mistake in this, but i am unable to find that.
Please help me. 
my blast report: atop1.txt
Script:

use Bio::Tools::Bplite;
$report = new Bplite (-fh=>\*STDIN);
$report->query;
while (my $sbjct = $report->nextSbjct){
$sbjct->name;
while (my $hsp = $sbjct->nextHS) {$hsp->score;}
}


thank you 
NE

__________________________________________________
Do You Yahoo!?
Yahoo! GeoCities - quick and easy web site hosting, just $8.95/month.
http://geocities.yahoo.com/ps/info1