$ perl -le '$x = 0x1.ffffffffffffffffffffffffffffp+16383; print $x;'
Inf