NET::SMTP
 

нашел такой скрипт, а он не работает!
Кто может подскажите плиз:
#!/usr/bin/perl -w

use Net::SMTP;

$smtp = Net::SMTP->new('mail.*********.com');

$smtp->mail('admin\@********.com.ua');
$smtp->to('vasya\@*******.com.ua');

$smtp->data();
$smtp->datasend("To: admin\@*******.com.ua\n");
$smtp->datasend("n");
$smtp->datasend("test messagen");
$smtp->dataend();

$smtp->quit;

Пишет мне ошибку 500, а в лог файле слудующая запись:
Net::SMTP: Permission denied at /home/websites/www.******.com.ua/cgi-bin/mail.cgi line 5
Can't call method "mail" on an undefined value at /home/websites/www.*******.com.ua/cgi-bin/mail.cgi line 7.
[Thu Jun 19 12:09:34 2003] [error] [client 193.108.48.2] Premature end of script headers: /home/websites/www.**********.com.ua/cgi-bin/mail.cgi

А на твоём сервере этот модуль (Net::SMTP) вообще установлен? CHMOD для mail.cgi ты какой выставил?

Попробуй здесь почитать описание (с примерами):
http://www.perldoc.com/perl5.6.1/lib/Net/SMTP.html