unless (open(LOG, "< $file"))
{
  print STDERR "Sorry, could not open $file: $!\n";
  exit (1);
}