#!/usr/bin/perl
use CGI ':standard';
print header, start_html;
print '<FORM ACTION="http://www.aw.com/~perlpgm/cgi-bin/C7/date4.cgi" METHOD="POST">';

print 'Enter command date (mm/dd/yyyy):';
print '<INPUT TEXT TYPE="text" SIZE="10" NAME="udate">';                

print br, '<INPUT TYPE=SUBMIT VALUE="Check Date">';
print '<INPUT TYPE=RESET VALUE="Erase and Restart">';
print end_form, end_html;