$msg = MIME::Lite->new(
           From    =>'peschkaj@bsddev1.qwest.net',
           To      =>'jeremiah.peschka@qwest.com',   
           Subject =>'test message',
           Type    =>'multipart/mixed');
      
$msg->attach(
           Type     =>'TEXT',
           Data     =>"Attached please find the attached attachment");

$msg->attach(
           Type     =>'TEXT',
           Path     =>'$fileName',
           Filename =>'AcLog.txt';
$msg->send;