#
#this is were the mail is sent to
#
$to="warthog\@primenet.com";
#
#this is who the sendmail program tells the user the sender of the email is
#
$from="billy_clinton\@whitehouse.gov";
#
#this is the subject of the e-mail
#
$subject="on the monica issue most americans beleive me";

#
#send the data to the sendmail program
#really its piped there in unix terms
#
open(MAIL,"|/usr/lib/sendmail -t ");
print MAIL "TO: $to\n";
print MAIL "FROM: $from\n";
print MAIL "Subject: $subject \n";
#
#the following 2 blank lines are required.
#if you remove them the code wont work
#
print MAIL " \n";
print MAIL " \n";
#
#the actual letter gets sent here
 print MAIL "dear fellow american;\n";
 print MAIL "beleive me i didnt have sex with monica\n";
 print MAIL "\n";
 print MAIL "your buddy\n";
 print MAIL "\n";
 print MAIL "bill clinton\n";
#
# end of the letter
#
#stuff to tell sendmail were all done
#if you remove it sendmail wont work
#
print MAIL ".\r\n";

#
#close down send mail
#and send the letter on its way
#
close MAIL;




Hosted by www.Geocities.ws