#!/usr/bin/perl
# worker.pl

use strict;
use Gearman::Worker;

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

$worker->register_function( 'split_it',  
  \&my_split_function );
$worker->work() while 1;

sub my_split_function {
    my $string = $_[0]->arg;

    my @new_string = split( ',',  $string );
    return \@new_string;
}

-------

#!/usr/bin/perl
# client.pl

use strict;
use Gearman::Client;

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

my $result = $client->do_task( 'split_it', 'abc,def' );
print "Split: @$result\n";