It’s easy to make a chart 

my $graph = GD::Graph::bars->new(500, 375);

$graph->set(
    title     => 'Product Sales',
    y_label   => 'Units Shipped (Millions)',
    x_label   => 'Product Sales by Year',
) or die $graph->error;

$graph->set_legend(@products);