try

for (1..6000){
  print "$_ " ;
  print "\n" if /00$/;
  select (undef,undef,undef,.0001);
}
[download]

and you'll see that when you give it a newline, it flushes.