open my $inFH, '<', $filename or die "...";