The first function registered to a worker shows up in the client_id
field of the Net::Telnet::Gearman::Worker object.
The first two ":"'s are sometimes adjacent.
So this code in Net::Telnet::Gearman.pm:
my ( $fd, $ip, $cid, @functions ) = split /[\s:]+/, $line;
should be:
my ( $fd, $ip, $cid, $funcs ) = split /(?:\s*:\s*)+/, $line;
my @functions = split " ", $funcs;