You need to use something like Mime::Entity or Mime::Lite. If you do a Super Search of this site for 'Mail Attachments' you will find a ton of examples.

Here is an example using Mine::Lite

    use MIME::Lite;
   
    ### 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'
         );
    
    ### Print to a filehandle (say, a "sendmail" stream):
    open SENDMAIL, "|/usr/lib/sendmail -t" or die $!;
    $msg->print(\*SENDMAIL);
    close SENDMAIL;
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print