Select Code to Download

#! perl -slw
use strict;
...
warn "\n\nProcessed $. sequences";
warn "Average length: ", $totalLen / $.;
close SEQ;

[ 6:57:56.46] P:\test\demerphq>
..\406836-3 
...
Average length: 1000 at P:\test\406836-3.pl line 58, <SEQ> line 1.

[ 8:36:54.42] P:\test\demerphq>