open(APPENDFILE,">>$zufallnr.txt");
   print APPENDFILE ("$zufallnr, ", "$derVorname"," ", "$derNachname, ", "$mailto","\n");
   close (APPENDFILE);