use Email::Sender::Simple qw(sendmail);
use Email::MIME;

my $email = Email::MIME->create(...);

my $fail_object = sendmail($email);

my $fail_message = $fail_object->message;
my $fail_errorcode = $fail_object->code;
my $fail_failed_recipients = $fail_object->recipients;