Munged from the MIME::Lite documentation:

    # Create the multipart "container":
    $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 the message body:
    $msg->attach(
        Type     => 'TEXT',   
        Data     => 'Here's the ZIP file you wanted'
    );  
     
    # Add the zip file:
    $msg->attach(
        Type        => 'application/zip',
        Path        => '/path/to/some.zip',
        Filename    => 'here_you_go.zip',
        Disposition => 'attachment'
    );
[download]

Cheers,
Ovid

New address of my CGI Course.
Silence is Evil (feel free to copy and distribute widely - note copyright text)