#!/usr/bin/env perl

use strict;
use warnings FATAL => 'all';

use Daemon::Control;

my $program = "$ENV{HOME}/bin/netdisco-daemon-fg";

Daemon::Control->new({
  name => 'Netdisco Daemon',
  program  => ($ENV{NETDISCO_DAEMON} || $program),
  pid_file => "$ENV{HOME}/netdisco-daemon.pid",
})->run;