Да чего уж - сам такой.
Если платный хостинг, то все должно работать, может ты ключи к sendmailу указал неправильные или они не поддерживаются.
Вот вычитал, и ты почитай.
#=============================================#== Отправить сообщение по E-mail
# Пример: &sendmail($email, $subject, $text)
#=============================================
sub sendmail
{ my ($email, $subject, $data) = @_;
my $login = 'merlin'; # Ваш логин на сервере
my $From = 'merlin@mastak.ru'; # С какого email отправлять
my $mail = "/usr/sbin/sendmail -t -f$login"; # Путь к sendmail
local(*SM);
if (open(SM, "|$mail")) {
print SM "From: $From\n";
print SM "To: $email\n";
print SM "Subject: $subject\n";
print SM "Content-Type: text/plain; charset=Windows-1251\n\n";
print SM "$data\n";
close(SM);
} else { die "Ошибка: не найден $mail"; }
}
Это пример функции для отправки email на мастаке, в ФАКе нашел. Обрати внимание, что для вызова sendmaila нужно указать свой логин на сервере и ключи немного другие. А так все как у тебя
))
Просто?
Удачи.