Select Code to Download

use strict;
use warnings;
...
   or die("Unable to create file \"$file\": $!\n");

print $fh "abc\x{201C}def\x{2013}ghi";