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;
  }
}

my $s = $MAXCYCLE; 
while ($s--) {
  $oldname = $s ? "$filename.$s" : $filename;
  $newname = join(".",$filename,$s+1);
  rename $oldname,$newname if -e $oldname;
  $s >= 0;
}