Select Code to Download

#!/usr/bin/perl -w

...

my $img = `/usr/local/bin/gnuplot $station $constituent $combined`;
print $q->header("image/png"), $img;

#!/usr/bin/perl -w

# test6.pl for testing real-time graph capabilities
...
plot "05056670.txt" using 2:3 title "P00930 Sodium dissolved"
--
print $q->header("image/png"),$station;