#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

##</code><code>##

Progress: 1
child pid 21079
Progress: 2
child pid 21080
Progress: 3
child pid 21081
Progress: 4
child pid 21082
...