#!/usr/bin/perl
use strict;
use warnings;

$char = chr(0x394);
$code = ord($char);

printf "char %s is code %d, %#04x\n", $char, $code, $code;