#/user/bin/perl
use strict;
my $intval = 66;
my $pckval = pack 'c', $intval;
my $pckhex = "0x" . (unpack 'H16', "$pckval");
my $stoval = "$pckval" ^ 0x80;
my $stohex = "0x" . (unpack 'H16', "$stoval");