Bienvenido a los foros de Perl en Español, Omarg51.
El código no está nada bien... ¿te has dado cuenta de lo que has escrito?
En la segunda línea estás haciendo uso de las variables $user y $pass, que en realidad estás definiendo en las líneas siguientes...
Y el programa está intentando enviar dos correos, no uno. El primero en la línea 2 y luego el otro, en la última línea. Pero esos correos van sin cuerpo del mensaje.
¿Qué error te sale? Si es el mismo que a danimera, la respuesta es la misma: ¿tienes el módulo
MIME::Base64 instalado?
Según dices al final, está en ese directorio. ¿La variable @INC contiene ese directorio?