$ perl -E'$x=Inf; say 0+$x'
inf