#here
while (<IN>) {
#for (<IN>) {
 chomp;

 $rcount++;
 $tcount++;
 print "Progress: $tcount\n";   # changed \r to \n
 $pid = fork;

 if ($pid==0) {
 # child
  close IN;
  print "child pid $$\n";       # new debug line
  # start call sleep sub