172         open(STDIN,  "</dev/null") or die "Can't redir STDIN: $!\n";

   172         open(STDIN,  "</dev/null") or die "Can't redir STDIN: $!\n";

   173         open(STDOUT, ">/dev/null") or die "Can't redir STDOUT: $!\n";

   173         open(STDOUT, ">/dev/null") or die "Can't redir STDOUT: $!\n";

   174         defined(my $pid = fork()) or die "Can't fork: $!\n";

   174         defined(my $pid = fork()) or die "Can't fork: $!\n";

   175         if ($pid) {

   175         if ($pid) {

   176             notice "child is $pid";

   176             notice "child is $pid";

   177             exit 0;

   178             exit 0;

   178         }

   179         }

   179         setsid();

   180         setsid();

   180         open(STDERR, ">&STDOUT") or die "Can't dup stdout: $!\n";

   181         open(STDERR, ">&STDOUT") or die "Can't dup stdout: $!\n";

   181 

   182