$msg->attach(Type => "text/plain", Encoding => 'base64', Data => $OutFile);
The above simply adds the contents of the variable $OutFile to the message.
Looks like you want to print the contents of the file, not the filename itself.
I'm not restating your question in order to be obtuse, I'm hoping I'm nudging you enough to figure it out yourself.
$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s +plit//=>$* ){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$# +C]=$/;($#C >$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^ +$$C[$%++]}
In reply to Re: MIME::LITE - Body contents and attachments
by chargrill
in thread MIME::LITE - Body contents and attachments
by g_speran
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |