#!/usr/bin/perl
use strict;
use warnings;
my $char = chr(0x394);
my $code = ord($char);
printf "char %s is code %d, %#04x\n", $char, $code, $code;