#!perl open(my $log, ">log-subnet.txt") or die "Could not open log: $!\n"; ##### Step 1, read subnetsopen(my $in, "<names.txt") or die "Could not open names.txt: $!\n";while(<$in>) {    next unless /(.*?)\/(.*)$/;    my $subnet = $1;    print "Checking $subnet\n";    my @dnsoptions = `./object.exe -u Xxx-p Xxx -b $subnet -o rich`;        my %counts;    foreach my $line (@dnsoptions) {        my @f = split/"\s+", $line;        $counts{$f[3]}++;    }        print $log "For subnet $subnet:\n";    foreach my $k (keys %counts) {        print $log "    $k: $counts{$k}\n";    }} close($log);