#!C:/PROGRA~1/PERL/BIN/PERL.EXE -w
use strict;

delete_old_files("c:\\temp");


###############################################################################
sub delete_old_files
{
  my ($dirpath)= @_;
  print "CLEANING: $dirpath\\\n";
  opendir(DIR, $dirpath) or return;
  my @filelist=readdir(DIR);
  closedir(DIR);
  my $i;
  foreach $i (@filelist)
  {
    next if (($i eq ".") or ($i eq ".."));
    my $f=$dirpath."\\".$i;
    if (-d $f)
    {
        delete_old_files($f);
    }
    elsif ((-f $f) && (-M $f >5) )
    {
        unlink($f);
    }
  }
}