rename $oldname, $_  or
        $_ = $oldname,
        warn "Can't rename $oldname to $_: $!";