Original idea: Microsoft Scripting Guys (link)
Ok, that's not that hard, some VBScript to Perl translation, a little modification and that's all!
I think it should work works remotely too (untested yet) by changing $strComputer with the targeted computer (you need some specific credentials).
my $strComputer = ".";
"." means local computer
every file older than 15 days in $folder will be deleted
change this with the folder you want to check (WARNING: be careful to prevent unwanted file from being deleted, and do not forget to escape \ character everywhere)
[edited: July 10, 2006 11:00 pm => scan subfolders recursively;
uncomment #$_->Delete; after some tests to realy delete files]
[The requested file http://dev.pulsed.net/wp/code/delete.pl could not be found]