Update:Test your code before you press that pesky Submit button ...

You want to do some globbing on the filenames. This could be done with the perlfunc:glob() builtin, but you also want some ordering.

Here is one approach :

• If a start date is given too short, append 01 to it until it is long enough. This will expand 2000 to 20000101, but it will expand 19 to 19010101, which might not be what you want.

    my ($startdate, $enddate);
  
    $startdate .= "01" while( length( $startdate ) <= 8 );
    $enddate .= "01" while( length( $enddate ) <= 8 );
  [download]

• Then, as you have fully specified dates, remark that date $a is later in time than date $b when the string comparision $a gt $b is true. We will use this to step through the list of all logfiles and spew out those that are in the right timeslot :

    my (@logfilelist);
    @logfilelist = sort @logfilelist;
  
    # Cut away everything that is too early
    while ($#logfilelist > -1 && $startdate lt @logfilelist[0]) {
      shift @logfilelist;
    };
  
    # Cut away everything that is too late
    while ($#logfilelist > -1 && $enddate gt @logfilelist[-1]) {
      pop @logfilelist;
    };
  
    # Now, @logfilelist contains all the logfiles in question
  [download]

Take a look at File::Find to see how you can get a list of all files in a directory, other interesting reading is the readdir() function.