The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Worker::Test;
use strict;
use warnings;
use base 'Qudo::Worker';
sub work {
    my ($class, $job) = @_;
    srand(time ^ ($$ + ($$ << 15)));
    sleep(int(rand(30)));
#    sleep(20);
    $job->completed;
}
1;