while( <OUT> ){
   $. % 1000 or print "line $. \n";
   # do stuff here
}