#!/usr/bin/perl 
use CGI ':standard';
my $outfile = "mailing.out";
my $sendmail = "/usr/sbin/sendmail -t";
 my $reply_to = "Reply-to: boese\@cs.colostate.edu\n"; 
 my $subject  = "Subject: Applet Message\n";
my $to       = "To: boese\@cs.colostate.edu\n";
my $content  = param('message');
print header;       # required first set of lines
print "Thanks!";
open(SENDMAIL, "|$sendmail") or die "Cannot open $sendmail: $!";
print SENDMAIL $reply_to;
print SENDMAIL $subject;
print SENDMAIL $to;
print SENDMAIL "Content-type: text/plain\n\n";
print SENDMAIL $content;
close(SENDMAIL);