sub SplitIntIn2Byte { my $int = shift; $hi = $int >> 8; $lo = $int & 0b0000000011111111; return (chr($hi),chr($lo)); }