#!/usr/bin/perl

use bigint;

sub split32 {
    my $v = shift;
    my $n = shift;
    my $mask = 0xffffffff;
    my @b32;
    for (1..$n) {
        unshift @b32, $v & $mask;
        $v >>= 32;
    }
    return @b32;
}

my $n = 2;    # n x 32-bit

my $v = 1024;
for (1..6) {
    print unpack("B*", pack("N$n", split32($v, $n) )), "\n";
    $v *= 1024;
}

##</code><code>##

0000000000000000000000000000000000000000000000000000010000000000
0000000000000000000000000000000000000000000100000000000000000000
0000000000000000000000000000000001000000000000000000000000000000
0000000000000000000000010000000000000000000000000000000000000000
0000000000000100000000000000000000000000000000000000000000000000
0001000000000000000000000000000000000000000000000000000000000000

##</code><code>##

{
    use bigint;

    # code that needs it...
}

# other code...