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";

##</code><code>##

[ncoadmin@station28 Cox_CMDB]$ perl /tmp/sendmail.pl 
Mail sent OK.

##</code><code>##

[ncoadmin@station28 Cox_CMDB]$ perl /tmp/sendmail.pl 
Error in sending mail: Connection not established
Mail sent OK.