sub wanted { 
    rename($_, lc) or die "$_: $!" if !-d && /[A-Z]/;
}