$hostname = `hostname`;
use Net::SMTP;
@Output = "";
@OutputDetails = "";
$Log_File = "E:\\Backups\\LOGs\\Sync_Import.log";

open (STDOUT,">>$Log_File");
open (Output,"multiutil <cmd>|");
while(<Output>) {
     $TheLine = $_; 			
     chomp($TheLine); #Get rid of line break
     push (@OutputDetails, $TheLine);
}
Mail_Body;
Mail_Msg;


sub Mail_Body{
$body0 = "This message sent by the Import Process";
$body1 = "\n $TheLine\n";     <==== REPLACE w/@OutputDetails
}

sub Mail_Msg{
$smtp = Net::SMTP->new( "mail.company.com" );
$smtp->mail( "ALIAS\@company.com" )";
$smtp->to('ALIAS\@company.com');
$smtp->data();
$smtp->datasend("Subject:Job Failure\n");
$smtp->datasend(<<EOF_MAIL

$body0
$body1		<==== THIS SHOULD BE EVERY LINE IN @OutputDetails

EOF_MAIL
);

$smtp->datasend();
$smtp->quit();
}