my $dir = "C:\Windows";
my @ext = qw(gif jpeg pdf  doc);
my $age = "2" # days ago, not in hours

# open directory and delete all files that are modified $age ago