rename($oldname,$_) unless $oldname eq $_;