open my $IN, "<", $file
  or die "can't open $file: $!";