Cum pentru a trimite mail dintr-un Perl / CGI?

În sistemele Unix si Linux puteţi utiliza software-ul sendmail pentru a trimite mesaje e-mail. Putem îmbogăţi apoi noastre aplicare Perl / CGI cu abilitatea de a trimite e-mail cu o listă simplă în codul:

 # Codul ...

 





 open (MAIL, "| / usr / lib / sendmail-t");

 





 MAIL de imprimare "Pentru a: $ destinatar \ n";

 





 MAIL de imprimare "From: $ expeditor \ n";

 





 MAIL de imprimare "Subiect: $ subiect \ n";

 





 MAIL de imprimare "Corpul mesajului .... \ n";

 





 MAIL de imprimare "Mesaj ... \ n";

 





 închide (MAIL);

 





 # Codul ...