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 /opt/perl-5.26.1/bin/perl demo_serial.pl

...
user    0m15.617s
sys     0m0.345s