use File::Find;

my @files;
my $age_limit=7;

find {
    wanted=>sub { -f and -M($_) < $age_limit and push @files, $_ },
    no_chdir=>1
}, 'd:\log\exported';

print join("\n",@files),"\n";