mbowen_signalp

#!/usr/bin/perl -w

use strict;
use Bio::Tools::Signalp;


# utilize stream I/O in your module

my $filename = "tta1_test.aa.fsa";
open my $fh, '<', $filename or die "Couldn't open $filename: $!";

my $parser = Bio::Tools::Signalp->new(-fh => $fh );

my @likely_sigpep;

 while( my $sp_feat = $parser->next_result ) {
   print "looping.";
   if ($sp_feat->score > 0.1) {
      print "found one!";
      push @likely_sigpep, $sp_feat;
   }
}