my $html = qq[
Dieses ist ein formatierter Text in html
]; print SM "From: $email\n"; print SM "To: $in{'email'}\n"; print SM "Subject: $rsubject $date\n"; print SM "Content-type: text/html\n"; print SM "\n";# Hier ist der Mail header zu ende!!!!!!!! print SM "$html"; close(SM);