my $task = Task->new;
    my $now = Date::Manip::ParseDate ('today');
    my $tasks = $task->fetch_all (starts => ["<= '$now'"]);
    my @readyTasks =
        sort {$a->{starts} cmp $b->{starts}} values %$tasks;