#!/usr/bin/perl -w
# test4.pl for testing real-time graph capabilities
# November 9, 2004
use CGI qw( :standard );
use CGI::Carp 'fatalsToBrowser';
my $q = new CGI;
my $station = $q->param('sta');
my $constituent = $q->param('const');
my $combined = "$station" . "$constituent";
my $img = `/usr/local/bin/gnuplot $station $constituent $combined`;
print $q->header("image/png"), $img;