$d = unpack 'd', pack 'Q', 0x7ff0000000000001;;

print $d;;
1.#SNAN

printf "%f\n", $d;;
1.#SNAN0