use MIME::Lite;
$msg = MIME::Lite->new(
To => "littledd\@gmail.com",
Subject => 'HTML with in-line images!',
Type => 'multipart/related'
);
$msg->attach(
Type => 'text/html',
Data => qq{
Here's my
image:
}
);
$msg->attach(Type => 'image/jpeg',
Id => '<1111899875.Big.jpeg>',
Path => '1111899875.Big.jpeg',
);
$msg->send();
