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