Select Code to Download

use strict;
use warnings;
...
$inFH->close()
#close $inFH
   or die qq{close: $inFile: $!\n};