use strict;
use Daemon::Control;
use Sys::Syslog;

exit Daemon::Control->new(
            name        => "Time from DVB",
            lsb_start   => '$syslog $remote_fs',
            program     => \&time_from_dvb,
            pid_file    => "/tmp/dvb-perl.pid",
        )->run;

sub time_from_dvb {

  openlog("perl-mh");
  # set the time from dvb
  syslog("time set");
}