#! /usr/bin/env perl
use strict;
use warnings;
use Qudo;

my $m = Qudo->new(
    databases => [+{
        dsn      => 'dbi:mysql:qudo',
        username => 'root',
        password => '',
    }],
);

for my $i (1..10000) {
    $m->enqueue('Worker::Test', {args => $i});
}