I need to find all the files in a directory that havent been modified in the past 7 days. I've got my script to so far find the last modified time using the following:
use File::Find;
my $age;
@ARGV = qw(.) unless @ARGV; #Darllen o'r current directory os dim paramedr
find(\&nolFfeil, @ARGV)...