#! /usr/bin/perl -w

use CGI;

my $cgi = CGI->new();
print $cgi->header(-type => 'text/html');

my @recipients = qw(adresse1@domain.tld [EMAIL=webmaster@domain.tld]webmaster@domain.tld[/EMAIL]);
my $sender = 'test <test@renee-baecker.de>';

my $sendmail = '/usr/sbin/sendmail';

open(MAIL,"| $sendmail -t");
print MAIL "To: ",join(", ",@recipients),"\n";
print MAIL "From: $sender\n";
print MAIL "Subject: Testmail\n\n";
print MAIL "Dies ist eine Testnachricht!";
close MAIL;
print $cgi->h2('Mails versendet');