Привет всем, не знаю где ошибка, тем более тема для меня новая.
Работаю под WIN-XP, стоит Apache, Perl, тест-ую Perl Builder'ом.
Нижеуказанный скрипт по идее должен послать мне почту, но при
тестировании скрипт говорит что всё о'кей почта ушла, а при сохра
нении в cgi-bin и запуска оттуда выскакивает ERROR 500.
И ещё, если у кого-то есть инфа по использованию этого скрипта
(сдаётся мне он сильно известен) буду очень благодарен за помощь.
(only Russia)
################################################
#!C:/Perl/bin/perl
print"Content-type: text/html charset='windows-1251'\n\n";
use strict;
use CGI qw(:all);
use CGI::Carp qw(fatalsToBrowser);
use Net::SMTP;

my $site_url="http://rambler.ru/";
my $relay="pop3.rambler.ru";

sub send_mail
{
my $to="[email protected]";
my $from="[email protected]";
my $subject="Hi ameba!";
my @body="The test.";

my $smtp = Net::SMTP->new($relay);
return 1 if (! defined $smtp);

$smtp->mail($from);
$smtp->to($to);
$smtp->data();
$smtp->datasend("To: $to\n");
$smtp->datasend("From: $from\n");
$smtp->datasend("Subject: $subject\n");
$smtp->datasend("\n");
foreach(@body)
{
$smtp->datasend("$_\n");
}
$smtp->dataend();
$smtp->quit;
return 0;
}

my $rc;
$rc=send_mail('@' .$relay. '???','Urgent!'); #Вот тут поподробнее.
if($rc != 0)
{
print"\nERROR MAIL";
}
else
{
print"\nMAIL O'KEY!";
}
###############################################

Из 17 посмотревших, ни один, толкового ничего не сказал...

Ошибку нашёл, use strict; не надо было использовать, а почту так и не получил, я отправлял её со своего компа, может надо провайдерской почтой
воспользоватся. Спасибо.