F:\test>perl -V:doublesize
doublesize='8';

F:\test>perl -e"my $double = 1.9041105342991887e+258; printf qq[%25.17g], $double;"
  1.9041105342991899e+258