use File::Find;
find (\&wanted, "./categories/");

sub wanted {

$m = -M "$File::Find::name";
print "M = $m <br>";

print<<ENDHTML
$File::Find::name<br><br>

ENDHTML

 if (-M $File::Find::name >= 7){
 unlink $File::Find::name;
 }
}
# End