sub open_output_file
{
 $gOutputFileObj = new IO::File $gOutputFile, "w";
 die "Can't open output file $gOutputFile.\n",
  "Error in file: \"", __FILE__, "\", at line: ", __LINE__, "\n" unless $gOutputFileObj;
 binmode($gOutputFileObj, ":utf8");
}