MIME::Lite

From: Wc -Sx- Jones (sx_at_insecurity.org)
Date: 03/29/04 

Date: Mon, 29 Mar 2004 10:10:57 -0500
To: beginners@perl.org

yes.

      Create a multipart message (i.e., one with attachments):

          ### Create a new multipart message:
          $msg = MIME::Lite->new(
                       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"):
          $msg->attach(Type =>'TEXT',
                       Data =>"Here's the GIF file you wanted"
                       );
          $msg->attach(Type =>'image/gif',
                       Path =>'aaa000123.gif',
                       Filename =>'logo.gif',
                       Disposition => 'attachment'
                       );