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