in reply to Decmal to 16 bit binary number
my $uint16 = pack 'n', 1263; # "\x12\x63" [download]
Or if you're asking for the binary representation of the number,
my $bin = unpack 'B16', pack 'n', 1263; # "0000010011101111" [download]