Select Code to Download

sub print_japanese_synonyms
{
...
 }
 print $gOutputFileObj "\t\t</synonyms>\n";
}

sub open_output_file
{
...
  "Error in file: \"", __FILE__, "\", at line: ", __LINE__, "\n" unles
+s $gOutputFileObj;
 binmode($gOutputFileObj, ":utf8");
}