convb2d($decimal);
sub convb2d {
    my $decimal = unpack 
( "N", pack("B32", substr("0" x 32 . $_[0], -32 )));
print ("Decimal: $decimal\n");
exit;
}

##</code><code>##

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