unless (open (SR, "<$file")) {
  die "Error: couldn't open file '$file': $!\n";
}