#!/usr/bin/perl


use Mail::Sender;



open(FH,"file.txt");
my $var;
while(<FH>)
{
        $var .= $_;
}
close(FH);



eval {
     Mail::Sender->new(

        {from => 'from@domain.com',
        smtp => 'smtp.server.com'})
        
     ->OpenMultipart({
        
         to => '',
         
         subject => 'Subject Here!',
         multipart => 'related',
       })
 ->Part({
         ctype => 'text/html',
         disposition => 'NONE',
        
    msg => <<'*END*' $var})
        $var
*END*

        ->Attach({
            description => 'test file',
            ctype => 'application/octet-stream',
            encoding => 'base64',
            disposition =>
           "attachment; filename= file1 ",
            file => 'file1'
          })

     ->Close();
  } or

print "Error sending mail: $Mail::Sender::Error\n";
[download]

Please check this code

  ->Part({
         ctype => 'text/html',
         disposition => 'NONE',
         msg => <<'*END*'})
        $var
*END*
[download]

You don't need a heredoc when you have the text in a variable already.

use this instead

  ->Part({
         ctype => 'text/html',
         disposition => 'NONE',
         msg => $var})
[download]

Look at this:

  $var = 'hello world';
  print <<'END';
$var
END
[download]

and this

  $var = 'hello world';
  print <<"END"
$var
END
[download]

Assuming you really do want a 'heredoc' here, you want the second kind.

Don't put stars in the heredoc terminator, that's ugly. If it doesn't stand out enough already, you need a different editor. END



- Boldra