my $daemon = Proc::Daemon->new(
    pid_file     => $pid_file,
);
$daemon->Init;

if ( $ARGV[0] eq "stop ) {
    $daemon->Kill_Daemon();
} elsif ( $ARGV[0] eq "status" ) {
    $daemon->Status($pid_file);
} elsif ( $ARGV[0] eq "start" ) {
    while ( $keep_going ) {
        $log->warning("TEST\n");
        sleep(5);
    }
}