my $pid = fork; unless (defined($pid)) { return -1; } if ($pid != 0) { # parent return 1; } POSIX::setsid(); close(STDIN);close(STDOUT);close(STDERR); fork() && exit 0; exec("$command") or return 0; #### print STDERR "worker ending"; exit 0;