if($pid = fork) {     #PARENT
  while(waitpid($pid, &WNOHANG) != $pid) {
    #Somehow retrieve line number of child process while running
    print "Retrieved line number\n";
    $mainform -> update;
    }
  }
else {                #CHILD
  exec(bin/tools/example.pl); # Execute child script
  print "DECLINED, fatal error spawning child script";
  exit;
}