#!/usr/bin/perl

for (1..6000){
  print $_;
  select (undef,undef,undef,.001); 
 #small delay to see buffering effects
}