open my $fh, '<', $file or die "could not open file";