Select Code to Download

$var = 4628;
open $report, '>utf8','C:report.txt' or die;
print $report chr($var)."\x{4628}";