use strict;
  use warnings;
  use MIME::Lite;

  ### Create a new multipart message:
  my $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'
  );

  ### use Net:SMTP to do the sending
  $msg->send('smtp','some.host', Debug=>1 );