use MIME::Lite;

### Create a new multipart message:
$msg = MIME::Lite->new(
From    =>'johns@mindspring.com',
To      =>'peter21458@aol.com',
#Cc      =>'some@other.com, some@more.com',
Subject =>'A test with attachment',
Type    =>'multipart/mixed'
);

### Add parts (each "attach" has same arguments as "new"):
$msg->attach(Type     =>'TEXT',
Data     =>"Here's the file you wanted"
);
$msg->attach(Type     =>'animated cursor',
Path     =>'C:\a\cursors\',
Filename =>'butterfly.ani'
);
   if ($I_DONT_HAVE_SENDMAIL) {
      MIME::Lite->send('smtp', "smtp.mailrelay.usps.gov", Timeout=>60);
   }

   $msg->send;         ### will now use Net::SMTP as shown above


#$text = $msg->as_string;