Вы наверное сталкивались с такой ситуацией, когда вы регистрируетесь на каком-либо сайте,вводя адрес электронной почты в одно из полей, и буквально в считанные секунды вам приходит электронная почта с приветствием и словами "Спасибо за регистрацию" и т.д. Понятно, что это вам посылает не админ сайта, на котором вы зарегистрировались. Как это делается? Дело всё в том, что при помощи скрипта и программы отсылки почты на сервере возможно сделать отсылку почты. И для осуществления этого, как минимум, необходимо знать путь к программе почты. Пусть она находится по адресу "/usr/sbin/sendmail". Зададим его некоторой переменной (для удобства работы). Также посоветую вам ввести ещё одну переменную, например $sendmail_allow, для разрешения или запрещения отсылки писем, т.к. на сервере программа будет работать, а на домашнем компьютере будут выдаваться ошибки, так вот чтобы этого не было и для того, чтобы постоянно не вырезать и не вставлять процедуру отсылки почты, сделайте так, как написано выше и просто меняйте значение переменной $sendmail_allow на 0(запрещение отсылать) или 1.

  $sendmail_allow=1;
  $mailprog='/usr/sbin/sendmail';

Теперь откроем программу отсылки почты:

  if ($sendmail_allow){
  open (MAIL,"| $mailprog") || die "Ошибка в программе почты";

Далее вводим основные заголовки email:

  print MAIL "To: receiver\@hisdomain.com\n";#кому
  print MAIL "Subject: Hello!\n";#тема сообщения
  print MAIL "From: sender\@yourdomain.ru \n";#ваш email

Заметьте, что значок "@" в Perl нужно писать как "\@".
Далее пишете текст послания, например:

  print MAIL "Спасибо за заход на мою страничку.\n";
  print MAIL "Это пробная отсылка почты\n";
  print MAIL "Пока!.. и удачи!";

И закроем программу почты:

  close(MAIL);}# фигурная скобка стоит, как закрытие "if"

Вот собственно и всё, удачного применения!