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

##</code><code>##

my $bin = unpack 'B16', pack 'n', 1263;  # "0000010011101111"