Ik heb de volgende code

sub mail_report (
$ Mailer \u003d '/ usr / sbin / sendmail joe@somewhere.net';
open MAIL, "| $ Mailer";
print MAIL "Onderwerp: $ X verbinding poging \ n";
geopend bericht, "<$ OutDir $ X";
$ $ OutDir bericht afdrukken 'X \ n';
bericht sluiten;
Sluiten Mail;
) # End sub mail_report

waar ik wil tekst invoegen vanuit een bestand als het lichaam van het bericht op de lijn
$ $ OutDir bericht afdrukken 'X \ n';
De boodschap is OK ontvangen, maar de tekst is niet opgenomen in het lichaam van het bericht.
Kan iemand wijzen op de fout van mijn manieren?
Bedankt