use strict;
use warnings;

print char2hex('a'),$/;
print hex2char(62),$/;

sub char2hex {
   return sprintf('%x',ord($_[0]));
}

sub hex2char {
   return chr(hex($_[0]));
}