i had written following script for sending mail automatically through
PERL using "sendmail" program in the perl script.
But its not workig. What may be the problem with it.
 
#!/usr/local/bin/perl
$name = 'name';
$email = 'mail id';
open(MAIL, "| /usr/lib/sendmail -oi -n -t");
print MAIL <<EMAIL_TO_USER;
To:$email
From:"[EMAIL PROTECTED]
Subject: More Information
Dear $name:
Thank you for contacting us. We will send you the material to this email 
address.
EMAIL_TO_USER
close MAIL;
print "Content-type:text/html\n\n";
print <<HTML_RESPONSE;
<html>
<title>Thank You Page</title>
<h1>Thanks!</h1>
Thanks, $name!<br>
I'll mail information to $address right away.
</html>

 
 

Yahoo! India Matrimony: Find your life partneronline.

Reply via email to