chdir $LOGPATH; # Change to the log directory foreach $filename (@LOGNAMES) { my $oldest = "$filename.$MAXCYCLE"; archive($oldest) if -e $oldest and $ARCHIVE{$filename}; for (my $s=$MAXCYCLE; $s--; $s >= 0 ) { $oldname = $s ? "$filename.$s" : $filename; $newname = join(".",$filename,$s+1); rename $oldname,$newname if -e $oldname; } }