#!/usr/local/bin/perl
   require 'cgi-lib.pl';

   &ReadParse;


   $name = $in{"name"};
   $email = $in{"email"};
   $message = $in{"message"};

   open (MYMAILTO, "|mail \"kal\@cs.wpi.edu\n\"");

   print MYMAILTO "Message from $name at $email \n" ;
   print MYMAILTO "Message: $message\n" ;

   close (MYMAILTO);
print "Content-type: text/html

";

print"\n<html><head><title>Guestbook Response</title>";
print"\n</head><body><IMG align = left SRC = \"http://cs.wpi.edu/~kal/images/EDicon.gif\">";


print"\n<center><h1>Thanks ".$name." for your message!</h1>";
print"\n<p><IMG align = middle SRC= \"http://cs.wpi.edu/~kal/images/blueline.gif\"> <p>";
print"\n</body> ";
print"\n</center> ";
print"\n<p> <hr> <p>";
print"\n<address> Send questions and comments to: ";
print"\n<A HREF = \"mailto: kal\@cs.wpi.edu\"> Karen Lemone </A>";
print"\n</address><p>";

print"\n</html>";

# END!!!
 
</pre>
</body>
</html>