Select Code to Download

$f2_5 = unpack("b64",pack("d",2.5));
print $f2_5 . "\n";
# Will return something like 00000000000000000000000000000000000000000
+00000000010000000000010

{
  my($endian,$binary2double_fun);
...
    return 0.0;
  }
}