#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;

print $query->header;
print $query->start_html(-title=>'Bargraph demo');
print "<FORM ACTION='/cgi-bin/P593/graphbar.pl' METHOD='post'>";

print "Please enter the means for each cell of the design.<BR>";
print "Factor 1 Level 1, Factor 2 Level 1 <INPUT TYPE='textbox' NAME='m1' MAXLENGTH=3 SIZE=3><BR>";
print "Factor 1 Level 1, Factor 2 Level 2 <INPUT TYPE='textbox' NAME='m2' MAXLENGTH=3 SIZE=3><BR>";
print "Factor 1 Level 2, Factor 2 Level 1 <INPUT TYPE='textbox' NAME='m3' MAXLENGTH=3 SIZE=3><BR>";
print "Factor 1 Level 2, Factor 2 Level 2 <INPUT TYPE='textbox' NAME='m4' MAXLENGTH=3 SIZE=3><BR>";

print "<INPUT TYPE='submit'>";
print "</FORM>";
print $query->end_html;