Hallo patrik, hier ein Beispiel.
Die Datei sollte als mailtest.pl gespeichert werden.
#!/usr/bin/perl
use CGI qw(param);
$p = new CGI;
$name=$p->param('name');
$anrede=$p->param('anrede');
$mailer = '/usr/sbin/sendmail';
$mail=
"empfaenger\@domain.de"; $from=
"absender\@domain.de"; $subject= "Bestellung";
$text= "Hallo $anrede $name";
print "Content-Type: text/html\n\n";
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
# Mail senden
open (MAIL, "|$mailer $mail") || die "Fehler $! beim mailer";
print MAIL "From: $from\n";
print MAIL "Reply-To: $from\n";
print MAIL "To: $mail\n";
print MAIL "Subject: $subject\n\n";
print MAIL "$text\n\n";
close MAIL;
print "Danke $anrede $name";
}else{
print qq|
<html>
<head><title>Mail senden</title></head>
<body>
<form action="mailtest.pl" method="post">
<input name="name" type="text">
<select name="anrede"><option>Frau<option>Herr</select>
<input type="submit">
</form>
</body>
</html>
|;
}
