$pid=fork();
  exec("notepad");
  $SIG{INT}=\&handler;
  sub handler { kill 1,$pid; }