# Send An Email with Attachment
$Email_List="user\@companyname.net";
MIME::Lite->send('smtp',"$Email_Server",Timeout=>60);
$msg = MIME::Lite->new(
             From => 'Netbackup@companyname.net',
             To => "$Email_List",
             Subject => "${hostname} Available Tape Report",
             Type => 'multipart/mixed');

$msg->attach(Type => 'TEXT',
             Path => '${OutFile}',
             ReadNow => 1);

$msg->send();