open(local *FH, '<', $file)
   or die("Unable to open file \"$file\": $!\n");