open my $fh, '<', $file or die "Can't read $file: $!";