# Enter loop to do work
for (;;) {
  my $sth = $sql_query{"sel_ext_master_jobs"}->execute() or die "can't execute the query";
  my $results = $sql_query{"sel_ext_master_jobs"}->fetchall_hashref('job_id') or die $sth->err;

  foreach my $job_id (keys %$results) {
                  #print "JobID $job_id is available to be executed...\n";
                  system("perl -w script.pl $job_id");
  }

}

startDaemon();

sub startDaemon {
  # Daemonize
  eval { Proc::Daemon::Init(); };
  if ($@) {
          print "Unable to start daemon:  $@";
  }
  # If already running, then exit
  if (Proc::PID::File->running()) {
        dienice("Already running!");
        exit(0);
  }
}