# need this plot in order for hotspots to have data
my $plotdata = $graph->plot($rows)->gif;

my $gd = $graph->gd;
my $red = $gd->colorResolve(255,0,0);
my @l = $graph->get_hotspot(1, 3);
my ($x, $y) = ( ($l[1] + $l[3])/2, ($l[2] + $l[4])/2 );
my $gdta;

$gdta = GD::Text::Align->new($gd,
     text => 'maximum',
     font => ['../Dustismo_Sans.ttf', GD::Font->Small],
     ptsize => 12,
     colour => $red,
     valign => 'bottom',
     halign => 'center',
 ) or warn $gdta->error;

$gdta->draw($x, $y + 2);

# must re-plot to get hotspots visible
# without this call to plot, the graph is fine (sans labels)
# but with it I get labels and a ghosting problem
$plotdata = $graph->plot($rows)->png;

my $uri = URI->new("data:");
$uri->media_type("image/png");
$uri->data($plotdata);
print qq(<img src="$uri" alt="Didn't work."></html>\n);