And here's an example of the use of MIME::Lite:

           use MIME::Lite

           $msg = new MIME::Lite
                       From    =>'me@myhost.com',
                       To      =>'you@yourhost.com',
                       Cc      =>'some@other.com, some@more.com',
                       Subject =>'A message with 2 parts...',
                       Type    =>'multipart/mixed';

           # Add parts (each "attach" has same arguments as "new"):
           attach $msg
                       Type     =>'TEXT',
                       Data     =>"Here's the GIF file you wanted";
           attach $msg
                       Type     =>'image/gif',
                       Path     =>'aaa000123.gif',
                       Filename =>'logo.gif';
           $msg->send;
[download]