$utf8_string = decode("euc-cn", $chinese_string);

sub write_file                  
{ 
   my $contents = shift; 
   my $filename = shift; 
   $g_error_message .= "Writing empty file $filename" unless $contents =~ /\S/;    
    
   open(FILE1,"> $filename"); 
  #print_log('filenamessS--- '.$filename); 
  #open(FILE1,">:encoding(UTF-8)","$filename"); 
  #print_log('contentssS--- '.Encode::encode( "UTF-8", $contents )); 
  #my $contents_utf = Encode::encode( "UTF-8", $contents ); 
  #open (FILE1 ,"> encoding(utf8)", "$filename"); 
   binmode FILE1,':utf8';  
   print FILE1 $contents; 
   close FILE1; 
   return 0; 
}