It doesn't run on Windows the way it is, though ... how about just adding the newline character $/, and doing:

X:for(my$x=1;;){$x%$_||next(X)for(2..$x++);print$x.$/}
[download]

If you want to make it even shorter, change print to warn:

X:for(my$x=1;;){$x%$_||next(X)for(2..$x++);warn$x.$/}
[download]

Of course, since it's not "production code", you can lose the my:

X:for($x=1;;){$x%$_||next(X)for(2..$x++);warn$x.$/}
[download]

And converting from for to map saves another character, so you're down to just 50 characters:

X:for($x=1;;){map{$x%$_||next X}2..$x++;warn$x.$/}
[download]

Update:  Come to think of it, you don't need the label for next, and you can switch to the "map EXPR,LIST" form of map, to bring it down to 45 characters:

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

Update 2:  From my response below, a better golf score (44 chars) can be achieved with:

$x++;{map$x%$_||redo,2..$x++;warn$x.$/;redo}
[download]

These are good suggestions. I'm not going to take them all: I like that it's UNIX-specific, and I like that it can use strict, and I don't like the warn output. (Though I'll point out that if you use warn you can dispense with the ".$/".) I think I'll use this version:

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

And the golfiest version is

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

at 42 characters.

Thanks!

The reason I used warn with the newline "$/" is that without it, you get a lot of extra clutter:

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.
...
[download]

but, come to think of it, that's a moot point your case, because of the switches you're using to Perl.

As far as the golfiest version ... well, you never know. :-)  Here's another example I just thought of which uses the non-newline "warn", but is only 41 characters:

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

So if you wanted to, you could do something like:

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

But in the end, the important thing is that whatever you decide to use, you've chosen a signature which fits your unique style and taste.  Thanks for giving us a chance to be a part of the process!

---

s''(q.S:$/9=(T1';s;(..)(..);$..=substr+crypt($1,$2),2,3;eg;print$..$/

Here's a Windows version for ya' (sans golfing)

C:\chas_sandbox>perl -le "X:for(my$x=1;;){$x%$_||next(X)for(2..$x++);p
+rint$x}"
[download]

---

I humbly seek wisdom.

When I run it on my linux machine, it spews endless lines of numeric values until I kill it with Ctrl-C.

What does it do for you?

That's exactly what it does. Look closely, though, there's something special about the numbers.