Help for this page
$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; } }