Gearman Worker Script

worker.pl

#!perl
use strict;
use warnings;
use utf8;

use Gearman::Worker;

my $worker = Gearman::Worker->new;
my $cnt = 0;
$worker->job_servers('127.0.0.1');
$worker->register_function( 'onegai' => sub { sleep(3); print "onegai count $cnt\n"; return $cnt++} );
$worker->work;