На сервере установлен spamassassin. 
Делаю отправку сообщения при помощи следующего кода:

В результате на адрес $recepient приходит письмо следующего содержания:
Spam detection software, running on the system "****.ru", has
identified this incoming email as possible spam.  The original message
has been attached to this so you can view it (if it isn't spam) or label
similar future email.  If you have any questions, see
The administrator of that system for details.

Content preview:  Текст сообщения [...] 

Content analysis details:   (8.7 points, 7.0 required)

 pts rule name              description
---- ---------------------- --------------------------------------------------
 0.0 MISSING_MID            Missing Message-Id: header
 0.8 HELO_LH_LD             HELO_LH_LD
 0.0 MISSING_DATE           Missing Date: header
 1.8 SUBJ_ALL_CAPS          Subject is all capitals
 1.5 SUBJ_ILLEGAL_CHARS     Subject: has too many raw illegal characters
 3.3 FUZZY_XPILL            BODY: Attempt to obfuscate words in spam
 1.3 SUBJECT_NEEDS_ENCODING SUBJECT_NEEDS_ENCODING
Я так понимаю, что я не полностью формирую заголовок письма? Чтото не указываю. Каким образом надо его формировать чтобы спам фильтр не ругался?

внимательно изучить rfc822 ?
или использовать подходящий пакет, например MIME::Lite

MIME::Lite в моем случае не подходит. Софт на сервере отказывается отсылать сообщения без авторизации на SMTP сервер. Отправка идет только если корректно залогиниться на SMTP-сервер. Есть ли вариант на подобие MIME::Lite но совмещенный с авторизацией на SMTP-сервер ? Я так понимаю прелесть модуля MIME::Lite как раз в том и состоит что его объект создаваемый в сценарии корректно создает заголовок и само письмо согласно стандарту.

Я соврал. Есть такая возможность.
MIME::Lite->send('smtp', "mail.test.com", Timeout=>120);

можно сформировать тело письма с заголовками, и отпрявлять его с помощью любого другого пакета.

MAIM::Lite очень удобный модуль. Чтобы отправить с его помощью через smtp нужно сделать примерно следующее