my $val = unpack "C", $byte;