#!/usr/local/bin/perl -w

use strict;
use vars qw($archivedir @subdirs $subdirs);

$archivedir = "/web/1/someplace" ;

# READ CONTENTS OF DIRECTORY AND DELETE FILES OLDER THAN 10 DAYS
opendir (ARCHDIR, "$archivedir") || die "Couldn't access the directory!";
	@subdirs = readdir(ARCHDIR);
	foreach $subdirs (@subdirs) {
		if (-M "$subdirs" > 10) {
      	rmdir("$archivedir/$subdirs");
   		}	
	}
closedir ARCHDIR;