C:\>perl -MData::Float="float_hex" -le "print float_hex(1 / 9);"
+0x1.c71c71c71c71cp-4