Tengo el siguiente código

mail_report sub (
$ Mailer \u003d '/ usr / sbin / sendmail joe@somewhere.net»;
abierto MAIL, "| $ Mailer";
imprimir MAIL "Asunto: $ X intento de conexión \ n";
MENSAJE abierto, "<$ outdir $ X";
imprimir MENSAJE '$ $ outdir X \ n ";
MENSAJE estrecha;
MAIL estrecha;
) # End Sub mail_report

cuando quiero insertar un archivo de texto como el cuerpo del mensaje en la línea
imprimir MENSAJE '$ $ outdir X \ n ";
El mensaje es bien recibido sin embargo el texto no se inserta en el cuerpo del mensaje.
¿Podría alguien señalar el error de mi manera?
Gracias