#!/usr/bin/perl

use strict;
use warnings;
use File::Find;

my  @files;
my @dirs = ('C:\');

for my $dir(@dirs){
  find(\&wanted,$dir);
}

sub wanted{
  my $file = $File::Find::name;
  push(@files,$file) if(-f $file and -M $file >  42);
}