#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use File::Find;

# Global array for the accumulated files...
my @files = ();

# Any directory will suffice here...
my $file_dir_root = "/var/log";

#------------------------------------------------
sub findNewerThan {

    #------------------------------------------------
    #  my $days_ago = shift;
    my $filename = $File::Find::name;
    return unless -f $filename;

    # Now stat the file to compare its modification time
    # with the days_ago parameter...

    push( @files, $filename );
}

#------------------------------------------------
sub days($) {

    #------------------------------------------------
    my $days   = shift;
    my $oneday = 60 * 60 * 24;
    return $days * $oneday;
}

#------------------------------------------------
#   MAIN
#------------------------------------------------
my $func = \&findNewerThan;

#find($func->(days(5)), ($file_dir_root) );
find( $func, ($file_dir_root) );

print Dumper( \@files );