Select Code to Download

if(my $pid=fork){
  while(my $c = ReadKey){
...
     print $count++;
  }
}

if(my $pid=fork){
  #parent
...
     #doing something... ;
  }
}