# Start child process
defined(my $pid = fork) or die qq(Can't fork: $!\n);

if ($pid==0){
  #Child process
  print qq(In Child .. starting \n); 
  # Start IE
  system '%ProgramFiles%/internet explorer/iexplore.exe','http://cnn.com';
  print qq(child returns - child quitting\n);
  exit 0
};
# THis is the parent Process .. do TK stuff here..
 print qq(PARENT:$pid doing...\n);
 sleep 5;
 print qq(Parent done\n);
 ## Code will HANG here until Iexplorer is closed....