window.open("pie.pl?$passstring", "window name", "width=650,height=650")
##</code><code>##

use GD::Graph::pie(350,350);
@data=([@name], [@value]);
$graph = new GD::Graph::pie;
$graph->set(
title           => "$title",
label           => 'Label Goes Here',
axislabelclr    => 'black',
'3d'            => 1,
start_angle     => 90,
suppress_angle => 5) or warn $graph->error;
$graph->set_title_font(GD::Font->MediumBold);
$graph->set_value_font(GD::Font->Small);
$format=$graph->export_format;
print header("image/$format");
binmode STDOUT;
print $graph->plot(\@data)->$format() or die $graph->error;