perl实现守护进程

#!/usr/bin/perl
use strict;
use File::Slurp;
use Proc::Fork;
my $code=read_file(‘./dig.pl‘);
while(1){
   run_fork{
       child{
       eval($code);
       if([email protected]){
           ERROR  [email protected];
        }
       exit;
    }
    parent{
       my $childPid=shift;
       waitpid $childPid,0;
    }
    };    
    sleep 1800;
}