open(HANDLE,"script_integration_records");
while (<HANDLE>) {
	@temp1 = split(/:/);
	$domain = unpack ("A4", $temp1[40]);
	if (($domain eq "ATM") && ($temp1[36] eq "In Production")) {
		$sum += $temp1[38];
		$count++;
    }
}
close(HANDLE);

$average = $sum / $count;
print $average, "\n";