在Perl中写daemon 程序

1. fork 一个进程
2. 父进程推出
3. 子进程设置新的session ID 
4. 关闭输入输出流，特别在远程执行的时候有用，不关闭的话，控制权回不到原来的终端，会hung在远程调用的命令

my $pid = fork();
    if($pid) {
        #print "#parent process/n";
        exit(0);
    }   
    else{
        #print "#child process/n";
    }   
######## set new group
setpgrp;

close(STDOUT);
close(STDIN);
close(STDERR);