open FH, '<', $file or die "Can't open $file for reading: $!\n";