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