open (MAIL,"|$mailprog");
    
    print MAIL "From: $wer\n";
    print MAIL "To: $liste[$empf]\n";
    print MAIL "Subject: $betreff";
    
  
#    print MAIL "Subject: Kruzifünfe !\n";
#    print MAIL "Bcc:$empfenger[$empf]\n";
    
#        print MAIL "-" x 75 . "\n\n";

print MAIL "\n\n";

print MAIL $text;


#    print MAIL "-" x 75 . "\n";
#print "Index".$empf;



    close (MAIL);