====== 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.

<code perl 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";

</code>