if ($old_gnoc eq $gnoc) { print TEST "L782 - Counter: $counter_chk\t $ip old_poller: $old_gnoc\tnew_poller: $gnoc\told_term: $old_group_term\tnew_term: $term\n"; $dir = "$homeDir/$old_gnoc"; $file = "groupChange.txt"; open (GRPCHG,">>$dir/$file"); print GRPCHG "L782 - Counter: $counter_chk\t $ip old_poller: $old_gnoc\tnew_poller: $gnoc\told_term: $old_group_term\tnew_term: $term\n"; close (GRPCHG); }