open(my $fh, '<', $file)
   or die("Unable to open file \"$file\": $!\n");