use MIME::Lite;
#### Start with a simple text message:
$msg = MIME::Lite->new(
   From    => 'francis@suresoft.info',
   To      => 'thomas.g@suresoft.info',
   Subject => 'A message with 2 parts...',
   Type    => 'TEXT',
   Data    => "Here's the GIF file you wanted",
);
$msg->send();