D’oh! Don’t know how I missed that. This one (77 characters) does print 2:

for($i=2;@p<50;++$i){($x=!($i%$_))&&goto _ for@p;push@p,$i;_:print"$i,
+"x!$x}
[download]

Cheers,