my $bytes = pack("n", 9);  # network byte order for 0x0009