$maennlichoweiblich = &maildatensaver($FORM{'maennlichoweiblich'});
$alter = &maildatensaver($FORM{'alter'});
$aberglaube = &maildatensaver($FORM{'aberglaube'});
$horoskope = &maildatensaver($FORM{'horoskope'});
$wissenschaft = &maildatensaver($FORM{'wissenschaft'});
$numeroskop_kennen = &maildatensaver($FORM{'numeroskop_kennen'});
$numeroskop_glaube = &maildatensaver($FORM{'numeroskop_glaube'});
$eins_fuehrung = &maildatensaver($FORM{'eins_fuehrung'});
$eins_organisationstalent = &maildatensaver($FORM{'eins_organisationstalent'});
$eins_ehrgeizig = &maildatensaver($FORM{'eins_ehrgeizig'});
$eins_erfolgreicheideen = &maildatensaver($FORM{'eins_erfolgreicheideen'});
$eins_ungernuntergeordnet = &maildatensaver($FORM{'eins_ungernuntergeordnet'});
$eins_einzelgaenger = &maildatensaver($FORM{'eins_einzelgaenger'});
$eins_aggressiv = &maildatensaver($FORM{'eins_aggressiv'});
$eins_schoepferisch = &maildatensaver($FORM{'eins_schoepferisch'});
$eins_gold = &maildatensaver($FORM{'eins_gold'});
$eins_edelsteine = &maildatensaver($FORM{'eins_edelsteine'});
$zwei_passiv = &maildatensaver($FORM{'zwei_passiv'});
$zwei_teamgeist = &maildatensaver($FORM{'zwei_teamgeist'});
$zwei_ausgeglichen = &maildatensaver($FORM{'zwei_ausgeglichen'});
$zwei_schuechtern = &maildatensaver($FORM{'zwei_schuechtern'});
$zwei_gute_argumente = &maildatensaver($FORM{'zwei_gute_argumente'});
$zwei_anpassungsfaehig = &maildatensaver($FORM{'zwei_anpassungsfaehig'});
$zwei_sanft = &maildatensaver($FORM{'zwei_sanft'});
$zwei_taktvoll = &maildatensaver($FORM{'zwei_taktvoll'});
$zwei_weiss = &maildatensaver($FORM{'zwei_weiss'});
$zwei_edelsteine = &maildatensaver($FORM{'zwei_edelsteine'});
$drei_lebenslust = &maildatensaver($FORM{'drei_lebenslust'});

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";

use warnings;
use strict;