my $bytes = pack 'N*', 0x01020304, 0x05060708;
my $bits = unpack 'B*', $bytes;
...