求大家帮忙

求大家帮忙
use strict;
use Bio::SearchIO;

my $searchio = Bio::SearchIO->new(-format => 'blast',
                 -fh   => \*STDIN);

my $min_percent_identity = 0.70; # 70 %
my $min_frac_query_aln  = 0.80; # 75 % of query must be aligned

my %seen; # keep track of what we've seen so we don't re-process the
     # the reciprocal
print join("\t",qw(GENEA GENEB FRAQALN FRACPID EVALUE BITS ALNLEN)),"\n";
while( my $r = $searchio->next_result ) {
  my ($qname)  = $r->query_name;
  my ($qlength) = $r->query_length;
  next if( $seen{$qname} );
  while( my $hit = $r->next_hit ) {
    my ($hname) = $hit->name;
    next if $hname eq $qname; # remove self hits
    my $frac_identical = $hit->frac_identical('query');
    my $frac_aligned_query = $hit->frac_aligned_query;
    if( $frac_aligned_query >= $min_frac_query_aln &&
      $frac_identical   >= $min_percent_identity ) {
      $seen{$hname}++;
      $seen{$qname}++;

      printf "%s\t%s\t%.1f%%\t%.1f%%\t%s\t%s\t%d\n",$qname,$hname,
      $frac_aligned_query*100,
      $frac_identical*100,
      $hit->significance,
      $hit->bits,
      $hit->length_aln;
    }
  }
}

大家好，以上是我在网上找到的一段求找recent duplication的程序。请问如何运行啊！里面的
-fh -> \*STDIN
是什么意思啊？
初学bioperl，不解之处，还请帮忙！

-fh -> \*STDIN-- -fh -> \*STDIN

STDIN是标准输入 这句的意思是将标准输入作为读入的filehandle 

这个是perl基础 和bioperl没有关系的 去找本书看看perl的输入输出吧

这一点我也知道，我不清楚.
这一点我也知道，我不清楚地是：这个程序运行如何在终端进行输入啊，不管我输入什么，回车后好像都没反应。