use File::Find::Rule;

my @files = find(
  file =>
  exec => sub { -A  < (time - (3600 * 24 * 10) },
  in   => '.',
);