print "\$intval = 66;  # \$intval = [$intval]  -  Expecting [66]\n";
print "\$pckval = pack 'c', $intval;  # \$pckval = [$pckval]  -  Expecting [B]\n";
print "\$pckhex = \"0x\" . (unpack 'H16', \"$pckval\");  # \$pckhex = [$pckhex]  -  Expecting [0x42]\n";
print "\$stoval = \"$pckval\" ^ 0x80;  # \$stoval = [$stoval]  -  Expecting [194]\n";
print "\$stohex = \"0x\" . (unpack 'H16', \"$stoval\");  # \$stohex = [$stohex]  -  Expecting [0xc2]\n";