open (FH, "$dir$file") or die "Can't open $dir$file: $!\n";