open (RMAIL, "|/usr/lib/sendmail -t"); 
select (RMAIL); 
$~ = "RESPONSE"; 
write; 
close (RMAIL);