#!/usr/local/bin/perl

print "Content-type: text/html\n\n";

print qq|<HTML><HEAD><TITLE>Email Form</TITLE></HEAD>\n|;
print qq|<BODY BGCOLOR=#A0D0B0>\n|;
print qq|<H2>Email to Chao-Wei Ou</H2>\n|;
print qq|<FORM METHOD="POST" ACTION="http://leibniz.npac.syr.edu:1996/cgi-bin/UTIL/sendmail.pl">\n|;
print qq|<pre>\n|;
print qq|    Your Name: <INPUT NAME="from-name" SIZE="40">\n|;
print qq| Your Address: <INPUT NAME="from-email" SIZE="40">\n|;
print qq|      Subject: <INPUT NAME="subject" SIZE="50">\n|;
print qq| Message Body: <BR>\n|;
print qq|               <TEXTAREA ALIGN=MIDDLE NAME="message" ROWS="15" COLS="80"></TEXTAREA>\n|;
print qq|</pre>\n|;
print qq|<CENTER>\n|;
print qq|<INPUT TYPE="submit" VALUE="Send">\n|;
print qq|<INPUT TYPE="reset" VALUE="Clear">\n|;
print qq|</CENTER>\n|;
print qq|</FORM>\n|;
print qq|</BODY>\n|;
