unless (open(FILE, $fileToOpen)) {
  print "Error: couldn't read from '$fileToOpen': $!\n";
}
else {
  ...
  close (FILE);
} # else