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