Código de Perl - Convertir los archivos de una carpeta a mayúsculas

Este simple comando, muestra como convertir todos los archivos (*) de un directorio a mayúsculas.
Si se desea unicamente cambiar los archivos de texto, reemplazar * por *.txt

El mismo código para convertir a minúsculas:
https://www.lawebdelprogramador.com/codigo/Perl/6834-Convertir-los-archivos-de-una-carpeta-a-minusculas.html