sub CheckTasks { my $self = shift; my $task = Task->new (dbh => $self->{db}); my @readyTasks = $task->getOldest (); if (@readyTasks) { my $taskInfo = $task->fetch (id => $readyTasks[0][0]); my $job = Job->new (dbh => $self->{db}); my $jobInfo = $job->fetch (id => $taskInfo->{jobid});