I'll suggest not doing this in Perl. I have to do a similar job periodically and I've settled on a utility named 'delen.' It's a powerful DOS delete utility. If you want to recursively delete all .pdf files over, say, 30 days, this will do it:

delen c:\*.pdf [d-7000,-30] /s
[download]

I'm pretty happy with it.

Hello Cleveland!