$eadres = &getadres;
open(EPOSTA, "| /var/lib/sendmail   -t);
print EPOSTA<<POSTASONU;
  To: $eadres
  From: email@adresi.com
  Subject: Teşekkürler
  ...
  POSTASONU
close EPOSTA;