my $limit = 20;

find (\&CheckFile, "/Users/admin/Documents/ScriptTest/");

sub CheckFile {
   my $age = -M $File::Find::name;

   if (  -f $File::Find::name
      && !/^\./
      && $age > $limit
   ) {
      rename ( "$File::Find::dir/$_", "$File::Find::dir/.$_")
         or die "rename failed: $!";
   }

   else {
      print $File::Find::name;
      print " is a youthfull ", int($age)," days old\n";
   }
}