Select Code to Download

    $ibm_float = (( $sign_bit )*( 16**( $exponent - 64 ) ) * $fraction
+ )/3000;

    $aux = $_[0];
    $aux = shift;

sub conv_bit_string_2_ibm32float {
    my( $first_digit, $bin_exponent, $bin_fraction ) =
...
sub bin2dec {
    return unpack( "N", pack( "B32", substr( "0" x 32 . shift, -32 )) 
+);
}