/usr/bin/perl '-lefor(my$x=1;;){map$x%$_||next,2..$x++;print$x}'

##</code><code>##

for($x=1;;){map$x%$_||next,2..$x++;warn$x}