D:\>perl -le "$x = (2 ** -1021) + (2 ** -1074); $s = sprintf '%.767g', $x; print $s; print length $s;"
4.4501...5625e-308
773