1 at x.pl line 2.
2 at x.pl line 2.
3 at x.pl line 2.
5 at x.pl line 2.
7 at x.pl line 2.
11 at x.pl line 2.
13 at x.pl line 2.
17 at x.pl line 2.
19 at x.pl line 2.
23 at x.pl line 2.
29 at x.pl line 2.
31 at x.pl line 2.
...

##</code><code>##

++$x;{map$x%$_||redo,2..$x++;warn$x;redo}

##</code><code>##

/usr/bin/perl '-le$x=1;{map$x%$_||redo,2..$x++;print$x;redo}'