Привет еще раз , нашел я библиотеку use Mail::Sender;
теперь прога выглядит так но все равно ничего не отсылает!!
У меня уже мозги плавяться, help, куча способов - никакие не работают, и sendmail для виндофз найти не могу
заменил то всего я несколько строчек
{smtp => \'mail.smtp.host\'}) на {smtp => \'
www.lunch.ru\'})
\'me@smtp.host\' на \'dmitry@lunch.ru\'
итого имею:
#!/usr/bin/perl
use CGI qw(:standard) ;
print header();
print "Simple message";
use Mail::Sender;
# создаем объект с указанием SMTP сервера
ref ($sender = new Mail::Sender {smtp => \'
www.lunch.ru\'})
or die "Error($sender) : $Mail::Sender::Error
";
# headers -
# определение дополнительного заголовка письма !!!
$sender->Open(
{from => \'dmitry@lunch.ru\',
to => \'dmitry@lunch.ru\',
subject => \'Mail::Sender.pm - new module\',
headers => "MIME-Version: 1.0\\r
Content-type: text/plain;
charset=KOI8-R\\r
Content-Transfer-Encoding: 8bit"})
or die $Mail::Sender::Error,"
";
$sender->Send(<<\'*END*\');
Вот новый модуль Mail::Sender.
Он обеспечивает объект, реализующий интерфейс
для посылки писем через SMTP сервер.
Он использует прямую связь через Socket,
так что ему не нужна никакая дополнительная программа.
Author:: Jan Krynicky
http://Jenda.Krynicky.cz *END*
$sender->Close;
Вот так