#!/usr/bin/perl -w
use strict;

printf "%X\n", ord('a');  #61
printf "%X\n", ord('b');  #62
print chr(0x61);          #a