E-Mail-Versand über Perl mit Sendmail

Über Perl ist es möglich, mithilfe des Programms Sendmail E-Mails über den Webserver zu versenden. Zu beachten ist hierbei, dass E-Mails nur versendet werden können, wenn als Absender eine E-Mail-Adresse angegeben wurde, die Sie bereits in Ihrem goneo-Kundencenter als E-Mail-Konto oder als Alias eines E-Mail-Kontos angelegt haben. Folgendes Beispiel können Sie nutzen, um den E-Mail-Versand mittels Perl zu testen. Ändern Sie die im Code angegebene E-Mail-Adresse entsprechend auf die E-Mail-Adresse ab, von der Sie die E-Mail versenden, sowie die Empfängeradresse, an die Sie die E-Mail versenden möchten. Beachten Sie bitte, nach dem Hochladen der Datei in das /cgi-bin Verzeichnis die Dateiberechtigungen (chmod) auf 750 zu setzen.

sendmail.pl

#!/usr/bin/env perl
use strict;
use CGI;
use Email::Valid;
 
my $query = new CGI;
 
my $sendmail = "/usr/sbin/sendmail -t -i --from=ihre-e-mail\@beigoneo.de";
 
my $absender = "From: ihre-e-mail\@beigoneo.de\n";
 
my $empfaenger = "To: ihre-e-mail\@beigoneo.de\n";
 
my $betreff = "Subject: Perl Testmail\n";
 
my $inhalt = "Testmail mit Perl";
 
open(SENDMAIL, "|$sendmail") or die "Fehler: $sendmail: $!";
print SENDMAIL $absender;
print SENDMAIL $empfaenger;
print SENDMAIL $betreff;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $inhalt;
close(SENDMAIL);
 
print $query->header;
 
print "E-Mail versendet";