Создание круговой диаграммы с помощью модуля GD::Graph

18 title => 'Заголовок круговой диаграммы'.2 use GD::Graph::pie.15 my $graph = new GD::Graph::pie (300, 300).25 or warn $graph->error.27 $graph->set_title_font (/usr/share/fonts/ttf/windows/times.ttf,18).28 $graph->set_value_font (/usr/share/fonts/ttf/windows/times.ttf,12).29 $graph->set_label_font (/usr/share/fonts/ttf/windows/times.ttf,14).31 $graph->plot (@data) or die $graph->error.33 open (GRAPH,>graph.jpg) || die Cannot open graph.jpg: $!n.34 print GRAPH $graph->gd->jpeg (100).