有關 fork 進程 死掉重啟問題

ieting

請問各位大大 如果我有兩個 子進程 各自執行
但是總會有死掉或hand住的時後時 下面兩個子進程fork的方式 我要如何修正 才能讓 子進程死掉或hand住時重啟該子進程
                #執行 ALog 指令-開始
                       unless ($pidALog = fork) {
                               unless (fork) {
                                       exec &ALog_Split;
                                       die "exec failed!";
                                           }
                       exit 0;
                }
                #執行 ALog 指令-結束
                #執行 Tping 指令-開始
                       unless ($pidTping = fork) {
                               unless (fork) {
                                       exec &Tping_Split;
                                       die "exec failed!";
                                           }
                       exit 0;
                }
                #執行 Tping 指令-結束
sub ALog_Split{
  while(1){
      print "我是子進程ALog\n";
      sleep(5);
  }
}

sub Tping_Split{
  while(1){
      print "我是子進程Tping\n";
      sleep(10);
  }
}

多謝各位大大指教與指導