my $ret_val = unpack c => pack C => ($? >> 8);