$smtp = Net::SMTP->new('Mail.Server');
$smtp->mail( 'user.com' );
$smtp->to($emailid);      
$smtp->data();        # Start the mail
 
$smtp->datasend("To: Mickey Mouse\n");
$smtp->datasend("From: John Doe\n");
$smtp->datasend("\n");
 
my $log_data = "Log File Contents:\n" . join("\n", @LogFile);

$smtp->datasend($log_data);
$smtp->dataend();             # Finish sending the mail
$smtp->quit;                  # Close the SMTP connection