Объединенный Открытый Проект

 if ($SEND_MAIL ne "") {
   open (MAIL,"| $SEND_MAIL -t");
   }

   print MAIL "To: $to\n";
   print MAIL "From: $fromaddr\n";
   print MAIL "Reply-to: $replyaddr\n" if $replyaddr;
   print MAIL "X-Mailer: Perl Powered Socket Mailer\n";
   print MAIL "Subject: $subject\n\n";
   print MAIL "$message";
   print MAIL "\n.\n";

if ($SMTP_SERVER ne "") {
   $_ = <MAIL>;
   if (/^[45]/) {
   close(MAIL);
   return(-7);
       }

   print MAIL "quit\r\n";
   $_ = <MAIL>;
   }
   close(MAIL);
   return(1);

   } # end SMTP, or sendmail

   else {  #blat
       $tempfile = "$ikondir" . "tempfile.txt";
       open(FILE,">$tempfile");
       print FILE "$message";
       close(FILE);
       open(MAIL,"|blat $tempfile -t \"$to\" -b \"$bccinfo\" -i \"$fromaddr\" -f \"$fromaddr\" -s \"$subject\"");
       close(MAIL);