open(SM, "|$mail $in{'email'}");
print SM "From: $email\n";
print SM "Subject: $rsubject\n\n";
foreach $part (@SR_data) {
if ($parse_commands == 1) {
foreach $key (@order_array) {
$part =~ s/\<$key\>/$in{$key}/ig;
}
}
print SM $part;
}
print SM "\n\n\nGesendet mit SmartFormMail 1.3.1";
print SM " frei erhältlich bei\n";
print SM "Tectonic Designs ([URL=http://tectonicdesigns.com]http://tectonicdesigns.com[/URL])\n";
print SM << 'ENDOFDOCUMENT';
Content-type: text/html
Meine Testmail
Das ist eine uebschrift2
ENDOFDOCUMENT
close(SM);