if (defined $query->param('Abschicken'){
open(MAIL, "|/usr/lib/sendmail -t -f info\@beispiel.de") || print STDERR "Mailprogramm konnte nicht gestartet werden\n"; 
   print MAIL "To: $mailto\n", "Subject: Newsletter\n\n";
   print MAIL "Hallo $derName, Du blabla";
   close(MAIL);
   $query->delete_all();  
 };