#!perl -w
use strict;

use DBI;
my $dsn = 'dbi:SQLite:dbname=tmp.sqlite';
while (1) {
  my $dbh = DBI->connect($dsn,undef,undef,{RaiseError => 1}); # Parent connecting
  # .. get a job list ..
  my @jobs = qw(Corion FloydATC FloydATD);
  $dbh->disconnect(); # <-- NB!
  foreach my $job (@jobs) {
    my @cmd = ($^X, '-le', q{"print 'Processing ', join '_', @ARGV"}, $job);
    system(1, @cmd);
  }
  sleep 1;
}

print "Done.";