foreach my $file (glob('*.log')) {
   rename $file, "oldlog" or die "Oops: $!";
}