#!usr/bin/perl
use CGI;
$query = new CGI;
#parse forms with cgi.pm

open MAIL,'|/usr/lib/sendmail -t' or die "error with email";

print MAIL "To: youremail@somewhere.com\n";
print MAIL "From: theiremail@somewhere.com\n";
print MAIL "Subject: form stuff\n";

print MAIL "name: ", $query->param(name), "\n";
print MAIL "subject: ", $query->param(subject), "\n";
print MAIL "email: ", $query->param(emailaddy), "\n";
print MAIL "message: ", $query->param(message), "\n";

close MAIL;

print "Location: thankyou.html\n\n"; #other ways, i just like it this way