open (my $F), '<', $file
  or warn "cannot open file '$file': $!";
defined $F
  or next;