use strict; use CGI::Carp qw/fatalsToBrowser/; my $mailbin = '/usr/bin/sendmail'; my $to = 'user@example.org'; my $from = 'me@example.org'; my $subject = 'Mein Thema'; my $html = qq[ Fetter Text ]; open SM,"| $mailbin" or die $!; print SM "To: $to\n"; print SM "From: $from\n"; print SM "Subject: $subject\n"; print SM "Content-type: text/html\n"; print SM "\n";# Hier ist der Mail header zu ende!!!!!!!! print SM $html; close SM; # Jetzt noch die Status Meldung für den Browser print "Content-type: text/plain\n\n"; print "Mail sent"; exit;