open (MAIL, "|$mailprogamm -t") || die $!;
print MAIL "To: $empfaengermail ($empfaenger)\n";
print MAIL "From: $email \n";
print MAIL "Subject: $betreff\n\n";
print MAIL $mailbodykontakt;
print MAIL "\n\n";
print MAIL "Gesendet am: $datumlang\n";
print MAIL "$maennlichoweiblich\n";
print MAIL "$alter\n";
print MAIL "$aberglaube\n";
print MAIL "$horoskope\n";
print MAIL "$wissenschaft\n";
print MAIL "$numeroskop_kennen\n";
print MAIL "$numeroskop_glaube\n";
print MAIL "$eins_fuehrung\n";
print MAIL "$eins_organisationstalent\n";
print MAIL "$eins_ehrgeizig\n";
print MAIL "$eins_erfolgreicheideen\n";
print MAIL "$eins_ungernuntergeordnet\n";
print MAIL "$eins_einzelgaenger\n";
print MAIL "$eins_aggressiv\n";
print MAIL "$eins_schoepferisch\n";
print MAIL "$eins_gold\n";
print MAIL "$eins_edelsteine\n";
print MAIL "$zwei_passiv\n";
print MAIL "$zwei_teamgeist\n";
print MAIL "$zwei_ausgeglichen\n";
print MAIL "$zwei_schuechtern\n";
print MAIL "$zwei_gute_argumente\n";
print MAIL "$zwei_anpassungsfaehig\n";
print MAIL "$zwei_sanft\n";
print MAIL "$zwei_taktvoll\n";
print MAIL "$zwei_weiss\n";
print MAIL "$zwei_edelsteine\n";
print MAIL "$drei_lebenslust\n";