#!/usr/bin/perl

use strict;
use warnings;
use Daemon::Generic;

my $sleeptime = 1

newdaemon(
      progname        => 'apt',
      pidfile         => '/var/run/apt.conf.pid',
      configfile      => '/etc/apt.conf',
);

sub gd_preconfig
{
      my ($self) = @_;
      open(CONFIG, "</etc/apt.conf")
      while <CONFIG>;
      close(CONFIG);
      return ();
}

sub gd_run
{     while (1) {
               sleep($sleeptime);
               print scalar(localtime(time))."\n";
      }
}