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

my $maxage=15;
every file older than 15 days in $folder will be deleted

my $folder="c:\\temp";
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]