Gearman Client Script

client.pl

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

use Gearman::Client;
use Gearman::Task;

my $client = Gearman::Client->new;
$client->job_servers('127.0.0.1');

for (1..10) {
    # background
    $client->dispatch_background(
        Gearman::Task->new("onegai",\"", {})
    );

    # foreground
    print ${$client->do_task("onegai")} . "\n";
}