#!/usr/bin/perl -w
use strict;
my $file;
my $dir_spec = '/home/archive/logs/old';
opendir(LOGDIR, $dir_spec) or die "Can't open $dir_spec: $!\n";
while ( defined($file = readdir(LOGDIR)) ) {
   if (-M "$dir_spec/$file" > 7) {
      unlink("$dir_spec/$file") 
          or die "Can't delete $dir_spec/$file: $!\n";
   }
}
closedir(LOGDIR);