open my $fh,"<$file" or die "Reading $file:$!";