#!/usr/bin/perl

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

my @files;
my $dir = 'C:\test';
find( \&search, $dir );

print "Alle Dateien, deren 'last modified' Datum länger als 2 Jahre zurückliegt:\n";
print "  $_\n" for @files;

sub search{
    my $file = $File::Find::name;
    if( $last_modify_date > $2_jahre ){
        push @files, $file;
    }
}