Select Code to Download

use strict;
use warnings;
...
close $sample_fh;
close $good_fh;

use strict;
use warnings;
...
close $sample_fh;
close $good_fh;

$ time perl test_serial.pl

...
user    0m22.925s
sys     0m0.293s