print MAIL <<"EOM";
To: $empfaengermail ($empfaenger);
From: $email
Subject: $betreff

$mailbodykontakt;

Gesendet am: $datumlang
$maennlichoweiblich
...
EOM