open my $fh, '<', $file or die "$0: cannot open $file: $!";