Chart-Plot
view release on metacpan or search on metacpan
# or use lib '...'
# or just install Chart::Plot
# Make sure there is also a writable tmp subdirectory here.
# Requires both GD.pm and CGI.pm.
# Copyright 1998 Sanford Morton <smorton@pobox.com>.
use CGI::Carp qw(fatalsToBrowser carpout);
use CGI;
use Plot; #use Chart::Plot;
# use strict;
# use cgidebug;
sub web_print {
print "Content-type: text/html\n\n<html><body>\n$_[0]\n</body></html>";
exit;
}
my $web_form = <<"HERE";
<FORM METHOD=POST>
<CENTER><H1>CGI Demonstration of Plot.pm</H1></CENTER>
<TABLE BORDER=0><TR><TD>
( run in 0.789 second using v1.01-cache-2.11-cpan-5735350b133 )