$msg = MIME::Lite->new(
             From => 'Netbackup@companyname.net',
             To => "$Email_List",
             Subject => "${hostname} Available Tape Report",
             Type => 'TEXT', # or 'text/plain','text/html' etc
             Path => $OutFile,
             ReadNow => 1);