#!/usr/bin/perl

use strict;

use Proc::Fork;
use POSIX;

chdir '/';
close $_ for *STDIN, *STDOUT, *STDERR;

run_fork {
    child {
        POSIX::setsid;
        while(1) {
            # daemon operation.
        }
    }
    parent { exit; }
};