use Mail::Sender;
eval {
$sender= new Mail::Sender{smtp=>'localhost'};
$sender->OpenMultipart({
to => 'emailaddress',
subject => 'Provisioning Status',
multipart => 'mixed',
from =>'emailaddress'
});
$sender->Part({ctype => 'text/html', disposition => 'NONE', msg => 'Test email'});
$sender->EndPart("multipart/alternative");
$sender->Close();
} or print "Error in sending mail: $Mail::Sender::Error\n";
print "Mail sent OK.\n\n";