use POSIX 'setsid';
use Cwd 'chdir';

sub daemon_init {

##</code><code>##

    my $pid = fork;
    exit 0 if $pid;
    exit 1 if not defined $pid;

##</code><code>##

    setsid();
    $pid = fork;
    exit 0 if $pid;
    exit 1 if not defined $pid;

##</code><code>##

    chdir '/' or die $!;


##</code><code>##

    umask 0;


##</code><code>##

    close $_ for @_;
}