eval {
	(new Mail::Sender)
	->OpenMultipart({...})
	->Body(...)
	->SendEnc(...)
	->Part(...)
	->SendEnc(...)
	->Attach(...)
	->Close();
	}
	if ($@ =~ /^Can't call method/) {
		die "Cannot send mail : $Mail::Sender::Error\n"
	} elsif ($@) {
		die $@,"\n";
	}