my $uint16 = pack 'n', 1263;  # "\x12\x63"