$dataIn[20] = pack "C", $var & 0xFF;
$dataIn[21] = pack "C", $var >> 8;