open(my $fh,'>',$file) or die $!;