#!/usr/bin/perl -w

use strict;
use JSON;
use DBI;
use POSIX qw(setsid);

chdir '/';
umask 0;

my $daemon_log = "/tmp/daemon.log";

open STDIN,'/dev/null' or die "Can't read /dev/null: $!";
open STDOUT,">> $daemon_log" or die "Can't write /dev/null: $!";
open STDERR,">> $daemon_log" or die "Can't write to /dev/null: $!";

print "start daemon\n";

defined( my $pid = fork) or die "Can't fork: $!";
exit if $pid;
POSIX::setsid() or die "Can't start new session";
$0='statdaemon';

`/bin/echo $  > '/var/run/statdaemon.pid'`;


while(){
        print "Cycle daemon\n";
        sleep(5);
}