koeppea@foxi:~/perl_scripts> cat htmlmail.pl
use strict;
open(PIPE,"| `which sendmail` -t") or die $!;
print PIPE << 'ENDOFDOCUMENT';
To: [EMAIL=format_c@example.org]format_c@example.org[/EMAIL]
From: [EMAIL=koeppea@example.org]koeppea@example.org[/EMAIL]
Subject: HTML-Test
Content-type: text/html
Meine Testmail
Das ist eine uebschrift2
ENDOFDOCUMENT
close PIPE;
print "sent\n";
koeppea@foxi:~/perl_scripts>