#!/usr/bin/perl

# Mail Programinin yolunu belirtiyorum.
$mailprog= "/usr/lib/sendmail" ;

# Alici Tanimlamasi
$recipient= "mehmet\@emrebilgisayar.com.tr" ;

# ??????? Burada Formdan gelen bilgiler okutulup mail e eklenicek ???????

 
# Mail Programini aciyorum.
open(MAIL, "|$mailprog $recipient");

# Mailin yazmaya basliyorum.
print MAIL "Subject: FORMDAN GELEN BILGILER\n";

# Mail Programini kapatiyorum. 
close(MAIL) ;

# Kullanicinin Gorecegi kisim
print <<EOF ;
Content-type: text/html
    
<html>
<head>
<title>SONUC</title>
</head>
<p>Form Bilgileri Basari iLe gonderildi.</p>
</html>
EOF

# PERL IN SONU :)            
exit ;
