It’s easy to make a chart 

#!/usr/bin/perl

use strict;
use warnings;

use GD::Graph::bars;

my @products = (
  'Buzzy Bees', 'Kiwifruit Wine', 'Paua Earrings'
);

my @sales_data = (
    [ 2006, 2007, 2008, 2009 ],   # X value labels
    [   54,   52,   50,   48 ],   # Buzzy Bees
    [   38,   37,   30,   17 ],   # Kiwifruit Wine
    [   24,   28,   34,   44 ],   # Paua Earrings
);

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);

my $gd = $graph->plot(\@sales_data) or die $graph->error;

my $filename = "$0.png";
open my $img, '>', $filename or die "open($filename): $!";
binmode $img;
print $img $gd->png;