use Gearman::Worker; my $worker = Gearman::Worker->new; $worker->job_servers('127.0.0.1:7003'); $worker->register_function('fun' =>\&w); $worker->work while 1; sub w{ print "3"; return 3; }