#!/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";