$eadres = &getadres;
open(EPOSTA, "| /var/lib/sendmail   $eadres);
print EPOSTA, "To: $eadres\nFrom:   email@adresi.com\n\n
  Teşekkürler\n";
close EPOSTA;