Select Code to Download

#!/usr/bin/perl -w

use CGI qw( :standard );
...
gnu
  close $graph or die "Failed to close pipe: $!\n";
}

!/usr/bin/perl -w
use CGI qw( :standard );
use CGI::Carp 'fatalsToBrowser';  
...
print p(" A OK ");
my $img = `gnuplot setcmds`;
print $q->header("image/png"), $img;

set terminal png color
set output
set xdata time
...
set ylabel "Sodim, water, filtered, milligrams per liter"
set title "05056670 Western Stump Lake Major Ions"
plot "05056670.txt" using 2:3 title "P00930 Sodium dissolved"