my $limit = 20;
find (\&CheckFile, "/Users/admin/Documents/ScriptTest/");

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

	if (-f && '$_, !~ /^\./' &&  ($age > $limit)) {
	

	rename  ( $_, ".$_")   or die "rename failed: $!";
       }


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