#!/usr/bin/perl
    use FindBin qw($Bin);
    use lib ("$Bin/../blib/lib", "$Bin/../blib/arch");
    use Gearman::XS qw(:constants);
    use Gearman::XS::Worker;

my $worker = Gearman::XS::Worker->new;

my $ret = $worker->add_server('192.168.35.71',4730);
if ($ret != GEARMAN_SUCCESS)
{
 printf(STDERR "%s\n", $worker->error());
 exit(1);
}
$ret =$worker->add_function("addno", 0, \&addno, {});
#print"Function is $ret \n";
if ($ret != GEARMAN_SUCCESS)
{
 printf(STDERR "%s\n", $worker->error());
 exit(1);
}

my $count = 0;
while (1)
{
  my $ret = $worker->work();
  if ($ret != GEARMAN_SUCCESS)
  {
   printf(STDERR "%s\n", $worker->error());
   last;
  }

}
sub addno {
  my ($job) = shift;
  my $workload= $job->workload();
  print"$workload \n";
}