Select Code to Download

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

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

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