open my $inFile, '<', $filename or die "Failed to open $filename: $!\n";