Eu tenho o seguinte código

sub mail_report (
Mailer $ \u003d '/ usr / sbin / sendmail joe@somewhere.net';
abrir MAIL, "| $ Mailer";
print MAIL "Subject: $ X tentativa de conexão \ n";
mensagem aberta, "<$ outdir $ X";
imprimir MENSAGEM '$ $ outdir X \ n';
MENSAGEM estreita;
fechar MAIL;
) # End Sub mail_report

onde eu gostaria de inserir o texto de um arquivo como o corpo da mensagem na linha
imprimir MENSAGEM '$ $ outdir X \ n';
A mensagem é bem recebida, no entanto, o texto não é inserido no corpo da mensagem.
Poderá alguém apontar o erro dos meus caminhos?
Obrigado