use Mail::Sendmail;

sendmail(
    From    => 'sender@somewhereelse.com',
    To      => 'recipient@somewhere.com',
    Subject => 'some subject',
    Message => "body of the message",
);

##</code><code>##

use MIME::Lite;

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',
);

$msg->attach(
    Type     => 'TEXT',
    Data     => "Here's the GIF file you wanted",
);

$msg->attach(
    Type     => 'image/gif',
    Path     => 'aaa000123.gif',
    Filename => 'logo.gif',
);

$msg->send;