It’s easy to make a chart 

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;