让perl程序以daemon方式运行

use POSIX;

sub daemonize {

        chdir "/";

        open STDIN, "</dev/null";

        open STDOUT, ">/dev/null";

        open STDERR, ">&STDOUT";

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

        exit if($pid);

        POSIX::setsid() or die "Can't start a new session: $!";

        umask 0;

}

&daemonize;