my $path = "$dir/$entry";
open my $inFile, '<', $path, or die "Can't open '$path': $!\n";