worker.pl

use strict;
use warnings;

use Gearman::Worker;

my $worker = Gearman::Worker->new;
$worker->job_servers('127.0.0.1:7003');

$worker->register_function(test => sub {
    return 1;
});

$worker->work while 1;