Select Code to Download

$rc = 1;
while (defined($nextfile = <$dirName/*cm*.4gl>))
...
    }
  }
}

for my $nextfile (glob File::Spec->catfile($dirName, '*cm*.4gl')) {
  $rc = system("grep $field $nextfile 1> /dev/null");
...
    last;
  }
}