$x = pack 'C', 65;
print "$x\n";  # prints the letter A
$n = unpack 'C', $x;
print "$n\n";  # prints the number 65