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