And this is the version so far with Find replaced by a local subroutine to avoid the new dichotomy of non-core module versus protection errors - surprisingly, it's less code to write and will also perform quicker than using File::Find. The protection test means there are now functionally a total of four rules (counting the within time interval as a single rule).

#!/usr/bin/perl

use Time::Local;

use strict;
use vars qw ( @times );

use warnings;

my @trees = ( '/home/ftp/pub',
              $ENV{ AC_SYSTEM },
              $ENV{ AC_WORKDIR } );


local @times = ( timelocal(0,0,15,14,7,105), timelocal(0,0,18,16,7,105
+) );

for ( @trees ) { MyFind( $_ ); }
sub MyFind {
    for my $file ( grep !/^\./, glob ( shift() . '/*' ) ) {
        if ( -d $file ) {
            ( -x $file ) and MyFind( $file );
        }
        else {
            my @stat = stat $file;
            ( $stat[9] > $times[0] ) and ( $stat[9] < $times[1] )

                and print "$file\n";
        }
    }
}
[download]