use constant INF => 9**9E9;
print INF;

##</code><code>##

use constant INF => 9**9E9;
local($\, $,) = ("\n", "\t");
for my $e (305 .. 310) {
    my $n = 10**$e;
    print $e, $n, INF > $n || 0, -$n, -(INF) < - $n || 0;
}

##</code><code>##

305	1e+305	1	-1e+305	1
306	1e+306	1	-1e+306	1
307	1e+307	1	-1e+307	1
308	1e+308	1	-1e+308	1
309	1.#INF	0	-1.#INF	0
310	1.#INF	0	-1.#INF	0