use strict;
use warnings;
use File::Find::Rule;
use Time::Local;

my ($min_time, $max_time)
    = ( timelocal(0,0,15,15,7,105), timelocal(0,0,18,16,7,105) );
my @directories = ( '/home/ftp/pub/', $ENV{ AC_SYSTEM }, $ENV{ AC_WORKDIR } );

print File::Find::Rule->file->mtime(">$min_time")->mtime("<$max_time")
    ->in( @directories );