Select Code to Download

#!/usr/bin/perl

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

0000000000000000000000000000000000000000000000000000010000000000
0000000000000000000000000000000000000000000100000000000000000000
...
0000000000000000000000010000000000000000000000000000000000000000
0000000000000100000000000000000000000000000000000000000000000000
0001000000000000000000000000000000000000000000000000000000000000

{
    use bigint;
...
}

# other code...