use File::Find::Rule::Age;
    my @old_files = find( file => age => [ older => '1M' ], in => '.' );