open ( my $fh,'>',$filename) or die "$filename : $!";