Select Code to Download

1 at x.pl line 2.
2 at x.pl line 2.
...
29 at x.pl line 2.
31 at x.pl line 2.
...

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

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