#!/usr/bin/perl

use Mail::Sender::Easy qw(email);

$mailserver = "...";
$mail_subject = "Testmail";
$mail_message = "...";

...

email({
'from' => 'test@test.com',
'to' => 'test@test.com',
'subject' => $mail_subject,
'smtp' => $mailserver,
'_text' => 'Sorry, your e-mail client is not supporting html mails.',
'_html' => $mail_message,
'_attachments' =>
{

#for(my $i = 1; $i <= 10; $i++)
#{
#$imgfiles[$i] => {'_disptype'=>'GIF Image','_inline'=>$imgfiles[$i],'description'=>'ATM-Image','ctype'=>'image/gif','file'=>$imgdirfiles,},
#} #for

'file1.png' => {'_disptype'=>'GIF Image','_inline'=>'file1.png','description'=>'ATM-Image','ctype'=>'image/png','file'=>'file1.png',},
'file2.png' => {'_disptype'=>'GIF Image','_inline'=>'statsimg2','description'=>'ATM-Image','ctype'=>'image/gif','file'=>'file2.png',},

},
}) or die "email() failed: $@";