open(MAIL, "|/usr/sbin/sendmail -t");  
 ## Mail Header 
print MAIL "To: $to\n"; 
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n"; 
## Mail Body 
print MAIL "write your mail body text here\n";   
close(MAIL);