Есть неплохая, самописная доска объявлений на Perl но кое чего недостает...

В доске есть функционал отправки писем "для разных нужд":
1.Письмо о регистрации пользователя.
2.Письмо о восстановление пароля
3.Уведомление о размещении объявления не рег.пользователем.
4.Уведомление о размещении объявления рег.пользователем.
5.Отправка письма из формы (ответ на объявление) не рег.пользователю.
6.Отправка письма из формы (ответ на объявление) рег.пользователю.

Подскажите как сделать:
Что бы в заголовках всех писем, а именно поле Received: from 94.***.**.** ==> подставить IP отправителя?
С формированием других заголовков проблем вроде нет, формируй какие надо и вставляй   
А сформировать и вставить в мыло такой заголовок никак не получается   

Для чего это надо?
Для тестирования отправки и "прохождения писем" - зарегистрировал по 2 мыла на гугле,рамблере,майле и яше...
Везде все письма доходят...

А на Яшу уходит два-три письма, потом отправляемые письма валятся в спам, а после не появляются даже в папке "спам". 
Если отправлять через панель управления сайта с помощью HORD то письма доходят. (хостер Гудзон)
Но там в заголовки  Received: вставляется IP отправителя. 
Вот думаю Яше - этого и не хватает.
Но как скриптом вставить IP отправителя в заголовок Received: ---> ни как не доходит.

Если подкините уже готовое решение для всего этого процесса, то было бы еще лучше.

ICQ:195377

drweb433, а письма как отправляются?
sendmail?
net::smtp?

Письма отправляются через сендмейл...

какой sendmail? sendmail sendmail или другой?
если sendmail sendmail, то можно попробовать -bs, но тогда надо будет поддерживать rfc821/rfc822 самостоятельно.