You can recheck that the reading process does not stop
with printing each (for example) 1000 line:

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