open(E,">>$path_to_domain/$base/email_error_log.txt"); print E "error sending mail: $Mail::Sendmail::error \n "; $er="error sending mail: $Mail::Sendmail::error"; chomp($er); print "Content-type: text/html\n\n"; print qq~ error sending mail: $Mail::Sendmail::error ~; 1;