$ perl -E 'say unpack q{B*}, pack q{N}, 0x01020304;'
00000001000000100000001100000100