Select Code to Download

convb2d($decimal);
sub convb2d {
...
print ("Decimal: $decimal\n");
exit;
}

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