my $der = waitpid($spid,WNOHANG);
                    if($der==-1) {
                        print STDOUT "Time to re-launch\n";
                        open(STDERR,">> $logfile");
                        $spid = open2(*SREAD, *SWRITE, "$program @prog_options");
                    }