$decimal = convb2d($decimal);
sub convb2d {
    return unpack 
( "N", pack("B32", substr("0" x 32 . $_[0], -32 )));
}