329 print "\nRunning isok on ip $ip\n"; 330 331 my $client = Gearman::Client->new; 332 $client->job_servers(''); 333 334 my $results = decode_json( 335 ${ $client->do_task( 336 'isok_production', encode_json({ isok_payload => $ip }) 337 )} 338 ); 339 my @result = keys $results->{$ip};