use Net::SNMP;
use MCE::Loop;
use MCE::Candy;

# ... acquire devices

open ($fh, '>>', $file_out);
print $fh "$date;Site;CTR;IP;Temperature\n";

MCE::Loop::init(
	chunk_size => 1, max_workers => 50,
	gather => MCE::Candy::out_iter_fh($fh)
	);

mce_loop {
	my ($mce, $chunk_ref, $chunk_id) = @_;
	my $key_bgtr = $chunk_ref->[0];
	my @out;

	foreach my $key_ip (keys %{$devices{$key_bgtr}})
		{
		$out[0]=$date.';';
		$out[1]=$devices{$key_bgtr}{$key_ip}.';';
		$out[2]=$key_bgtr.';';
		$out[3]=$key_ip.';';

		for (my $k =2;$k<=3;$k++)
			{
			if (!defined $out[$k]) {$out[$k] = './.'}
			}

		$ss =  Net::SNMP->session(Hostname=> $key_ip, Timeout => 1);

		$out[4] = $ss->get_request(Varbindlist => [$oid]);
		$out[4]= $out[4]->{$oid};

		if (defined $out[4] && $out[4] !~ /^$|\s/ && $out[4] >=5)
			{
			$out[4] = "$out[4]\n";
			}
		else
			{
			$error = $ss->error();
			if ($error =~ /.*noSuchName.*/)
				{
				$out[4]="no ALCplus2e\n";
				}
			else
				{
				$out[4]="OFFLINE\n";
				}
			MCE->print($log, "$key_bgtr: $error\n");
			}

		$ss->close;
		}

        MCE->gather($chunk_id, join('', @out));

	} sort keys %devices;

close $fh;