open my $fh,'<', $file or die $!;