$ perl -E'my $a=-1.797693134862314e+308; say $a;'
-1.79769313486232e+308