well, you're using readdir without closely reading readdir documentation and falling for the number one readdir pitfall so dont use readdir its not for humans

Usee File::Find::Rule::Age and see example at Re: File test in grep not excluding current directory ( use File::Find::Rule qw/ find rule :Age /; )