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
|