mail-клиент, perl или какая-нить утилита на SunOS

Есть отдельно стоящий сервер. Ему доступен ТОЛЬКО один smtp сервер (для этого сервера может работать как релей), остальное всё блокируется на firewall. Почтовика никакого не стоит. Но почту, логи с этого сервера, нужно отправлять.
Как это сделать? Пока представляю какой нить перловый скрипт, похожий на это:
use IO::Socket;
my $socket = IO::Socket::INET->new ("10.10.17.24:25");
defined $socket or die "ERROR: $!";
$socket->print ("HELO1512");
$r = <$socket>;
$socket->print ("MAIL FROM:John Doe <jd\@domain.com>1512");
$r = <$socket>;
$socket->print ("RCPT TO:Frank Smith <fs\@domain.com>1512");
$r = <$socket>;
$socket->print ("DATA1512");
$r = <$socket>;
$socket->print ("From:John Doe <jd\@domain.com>\nTo:Frank Smith
<fs\@domain.com>\nSubject:Test.\n\nIt's just test!!!1512");
$r = <$socket>;
$socket->print ("\.1512");
$r = <$socket>;
$socket->print ("QUIT1512");
$r = <$socket>;

Но тут ничего не обрабатывается, никаких ситуаций. Вопрос, может быть есть нормальный скрипт для это цели или тулза в SunOS. Необходимо чтоб текст письма получал скрипт с pipe.

P.S. Net::SMTP в перл тоже не возможно использовать. :-(