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