Help for this page
ok("$PINF" eq '1.#INF', "positive infinity, $PINF");
ok("$PINF" eq 'Inf', "positive infinity, $PINF");