if(my $pid=fork){
  while(my $c = ReadKey){
     #doing something... ;
  }
  kill( HUP => $pid );
  wait(0);
}
else {
  my $count = 0;
  while(1){
     sleep(1);
     print $count++;
  }
}