Select Code to Download

#! perl -slw
use strict;
...
    print "Name: $name\nSignal: [ @signal ]\nPosns: [ @posns ]\nScores
+: [ @scores ]\n";
    last if eof( IN );
}

C:\test>1158856 1158856.ssf
sig: .sff ver:1 iOff:0 iLen:0 reads:28516 hLen:904 kLen:17 flows:850 f
+mt:1
...


C:\test>