...
    {
    open my $fileIn, '<', $filename or die "Failed to open $filename: $!\n";
    ...
    }