#!/usr/bin/perl
use MIME::Lite;
use Mail::Sender;


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





eval {
     Mail::Sender->new(

        {from => '',
        smtp => ''})
     ->OpenMultipart({
         to => '',
         subject => 'Subject Here!',
         multipart => 'related',
       })
     ->Part({
         ctype => 'text/html',
         disposition => 'NONE',
         msg => $var})

     ->Close();
  } or

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