use MIME::Lite;
use Net::SMTP ;
### Start with a simple text message:
$msg = MIME::Lite->new(
   From    => 'mymail.info',
   To      => 'mymail1.info',
   Cc      => 'mymail2.info',
   Subject => 'A message with 2 parts...',
   Type    => 'TEXT',
   Data    => "Here's the GIF file you wanted",
);

### Send in the "best" way (the default is to use "sendmail"):
#$msg->send();