#!/usr/bin/perl -w
use CGI ':standard'; use CGI::Carp(fatalsToBrowser);
print "Content-type: text/html\n\n";
###data in Json format is prepared by the cgi script and added to the first line of the script
my $dline="
';
###$pscript is a jquery script made up of $dline and $pt2
my $pscript=$dline.$pt2;
##code for HTML output
my $htmlHeader='
';
my $body='
';
###print the graph
print qq($htmlHeader);
print qq($body);
print qq($pscript);