Select Code to Download

#!/usr/bin/perl
# worker.pl
...
my $result = $client->do_task( 'split_it', 'abc,def' );
print "Split: @$result\n";

Not a SCALAR reference at
 /usr/local/share/perl/5.8.8/Gearman/Worker.pm line 365.