#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;
print $query->header;
print $query->start_html(-title=>'Homework 8');
#Opens flot files
print "
";
#Retrieves data
open(INFO, "$ENV{'DOCUMENT_ROOT_OLD'}/www/heplerlabs.com/P593/homework_3.txt");
@data = ;
close(INFO);
print "Rolcat results - flot style!
";
print "Scatterplot for Question 1 (x-axis) vs. Result (y-axis)
";
print "";
print "";
print "
";
print "Scatterplot for Question 2 (x-axis) vs. Result (y-axis)
";
print "";
print "";
print "
";
print "Scatterplot for Question 3 (x-axis) vs. Result (y-axis)
";
print "";
print "";
print "
";
print "Scatterplot for Question 4 (x-axis) vs. Result (y-axis)
";
print "";
print "";
print "
";
print "Scatterplot for Question 5 (x-axis) vs. Result (y-axis)
";
print "";
print "";
print "
";
print "Scatterplot for Question 6 (x-axis) vs. Result (y-axis)
";
print "";
print "";
print "
";
print "Scatterplot for Question 7 (x-axis) vs. Result (y-axis)
";
print "";
print "";
print "
";
print $query->end_html;