print "Content-type: image/gif\n\n";
print "Cache-control: no-cache\n";
print "Pragma: no-cache\n";
print "Expires: Mon, 06 May 1996 04:57:00 GMT\n";

##</code><code>##

print "Content-type: image/gif\n\n";

##</code><code>##

my @data = (  
 \@xlabel,
 \@reads,
 \@writes,
 \@updates
 );
my $graph = GD::Graph::lines->new(400,300);
$graph->set(
   x_label      => 'Average Read/Write/Update',
   y_label      => 'Performance ms',
   title        => 'Performance Monitor',
   y_min_value => 0,
   y_max_value  => $ysp,
   y_tick_number => 5,
   y_label_skip => 'auto',
   x_label_skip => 10,
   box_axis => 0,
) or die $graph->error;
$graph->set_legend( 'Read/Item', 'Write/Item', 'Update/Item');
my $myimage = $graph->plot(\@data);
print "Cache-control: no-cache\n";
print "Pragma: no-cache\n";
print "Expires: Mon, 06 May 1996 04:57:00 GMT\n";
print "Content-type: image/gif\n\n";
print $myimage->gif;
print "\n";
print "\n--magicalboundarystring\n";