sub clean_dir {
    my $dir = shift;
    my %age;
    my $debug = 1;

    # Loop through files and add ages into array
    opendir (DIR, $dir) or die "Unable to open $dir: $!";
    while (readdir (DIR)) {
        my $temp_age = -M "$dir/$_";
        if ($debug) {
            print "Age checked in readdir loop: $temp_age<BR>\n";
            print "File checked in readdir loop: $_<BR>\n";
        }
        $age{$temp_age} = $_;
    }
    # DEBUG
    if ($debug) {
        print "Ages:<BR>\n";
        print "$_: $age{$0}<BR>\n" foreach sort keys %age;
        print "Oldest files...<BR>\n";
    }
    foreach (sort ({keys (%age)}[0..9])) {
        print "$_[0]<BR>\n" if ($debug);
        # Commented out removes to be safe for now
        #system("rm", "$dir/$age{$_[0]}")
        #    or die "Can't remove $dir/$age{$_[0]}: $!";
        print "$_[0] removed." if ($debug);
    }
}

##</code><code>##

my @files = split /\n/, `ls -rtl $dir`;
system ("rm","$dir/$_") for @files[0..9];