open (FILE, $file) or die "Cannot read $file: $!";