sub notify{
 my ($title)=@_;
 my ($et)=param("et");
 if (... verkürzt ...)
   print MAIL "Subject: $title \n";
   print MAIL (... verkürzt...)
   print MAIL "\n$et\n";
}