$extflag=0;
print"Flag outside loop=> $extflag\n";
if(defined($pid = fork))  {
      if ( $pid )  {
        print"PARENT PROCESS\n";
        $extflag=1;
        print"Flag inside paretn=> $extflag\n";

  waitpid ($pid,0);
      }
      else {
        print"CHILD PROCESS\n";
          sleep 10;
  while(!$extflag){
        
        print"Flag inside while child > $extflag\n";
  }
print"Flag outide while in cheild=> $extflag\n";
}
}