Source: http://en.wikipedia.org/wiki/Aceh 

#!/usr/bin/perl -w
# Author: This e-mail address is being protected from spam bots, you need JavaScript enabled to view it
# Create pie charts using Google Chart API
# http://code.google.com/apis/chart/
#

use strict;
use CGI;
my $cgi =  new CGI;

# params
my $datapath = defined($cgi->param('datapath')) ? $cgi->param('datapath') : 'data';
my $datafile = defined($cgi->param('datafile')) ? $cgi->param('datafile') : 'chartdata.txt';
my $pagetitle = defined($cgi->param('pagetitle')) ? $cgi->param('pagetitle') : 'www.acehonline.com';
my $pietype = defined($cgi->param('pietype')) ? $cgi->param('pietype') : 'p3';  # p or p3
my $chartsize = defined($cgi->param('chartsize')) ? $cgi->param('chartsize') : '520x160';   # w x h
my $chartcolor = defined($cgi->param('chartcolor')) ? $cgi->param('chartcolor') : '00CC00';
my $chartbgclr = defined($cgi->param('chartbgclr')) ? $cgi->param('chartbgclr') : 'F3EDBF';
my $onlycol = defined($cgi->param('onlycol')) ? $cgi->param('onlycol') : 0;

# format datafile:
#
# header <tab>  col₁  <tab> ... col_k
# label₁ <tab> data₁₁ <tab> ... data_1k
# label₂ <tab> data₂₁ <tab> ... data_2k
#

if(! -e "$datapath/$datafile"){
  print "Data file not found\n";
  exit(0);
}

# get label and data value from datafile
my $row1 = `head -1 $datapath/$datafile`;   # get the header = 1st line
my @header = split('\t', $row1);
my @cols = `cut $datapath/$datafile -f1`;   # get the label = 1st col
@cols = @cols[1..$#cols];
my $label = '';
foreach(@cols){
  chomp;
  s/\s+$//g;
  if($label eq ''){
    $label .= $_;
  }else{
    $label .= "|$_";
  }
}

print $cgi->header({-type=>'text/html', -charset=>'UTF-8'});
print $cgi->start_html({-title=>"$pagetitle"});

# get data values in each col
for my $i(1..$#header){
  next if(($onlycol > 0) && ($i != $onlycol));
  my $t = $i+1;
  my @vals = `cut $datapath/$datafile -f$t`;
  my $title = $vals[0];  # title is in the first row of each col
  chomp($title);
  my @data = ();
  my $maxval = 0;
  for my $k(1..$#vals){  # populate each val in the row to array data and get max value
    chomp($vals[$k]);
    push(@data, $vals[$k]);
    $maxval = $vals[$k] if($vals[$k] > $maxval);   # get max val
  }
  my $chartdata = encoding(\@data, $maxval);
  print $cgi->img({-src=>"http://chart.apis.google.com/chart?cht=$pietype&chd=$chartdata" .
                                      "&chs=$chartsize&chl=$label&chtt=$title&chf=bg,s,$chartbgclr&chco=$chartcolor"});
}

print $cgi->end_html;

#___DONE___


sub encoding{
  my $dataval = shift;
  my $maxval = shift;
  my @encoding = qw(A B C D E F G H I J K L M N O P Q R S T U V W X Y Z a b c d e f g h i
                    j k l m n o p q r s t u v w x y z 0 1 2 3 4 5 6 7 8 9);
  my $chartdata = "s:";
  my $len = $#encoding;
  foreach(@$dataval){
    my $curval = $_;
    if($_ >= 0){
      my $pos = int($len * $curval / $maxval);
      $chartdata .= $encoding[$pos];
    }else{
      $chartdata .= '_';
    }
  }
  return $chartdata;
}