####################################################
#### Emailing the Reports now
####################################################
# Send An Email with Attachment
$data = `${uxutil}cat ${OutFile}`;
#print "Below is the contents of \$data\n$data\n";
MIME::Lite->send('smtp',"$Email_Server",Timeout=>60);
$msg = MIME::Lite->new(
             From => 'Netbackup@company.net',
             To => "$Email_List",
             Subject => "${hostname} Robotic Tape Information",
             Type => 'multipart/mixed');

$msg->attach(Type => 'application/vnd.ms-word',
             Filename => `basename \"${OutFile}\"`,
             Path => "$OutFile",
             ReadNow => 1,
             Disposition => 'attachment');

$msg->attach(Type => "text/plain",
             Encoding => 'base64',
             Data => $data);
$msg->send();
####################################################
#### End Emailing the Reports
####################################################