!/usr/bin/perl -w
use strict;

my $dir="/var/www/html/datadir";
#

opendir (DIR, $dir) or die "cannot open $dir";
foreach my $file (readdir(DIR)) {
  &process_file ($file);
}
closedir (DIR);

sub process_file {
  my $mm="01";
  my $yyyy="2000";
  do {
    print "MM: $mm\n\n"; # for troubleshooting
    my $yyyymm=$yyyy.$mm;
    print "YYYYMM: $yyyymm\n\n"; # for troubleshooting
    my $midxnme="index_$yyyymm.txt";
    print "MIDXNME: $midxnme\n\n"; # for troubleshooting
    my $midxfle="$search_data_dir/$midxnme";
    if($midxfle = my $file) {
      print "found $midxfle\n";
    } else {
      system ("command");
    }
    $mm++;
    print "\n\nMMnext: $mm\n\n"; # for troubleshooting
  } while ($mm <= "12");
}