use strict;
use Tk;


my $mw    = new MainWindow(-title => 'Test');
my $canvas    = $mw->Canvas(-width  => 512, -height => 512)->pack;

## input

#########################
my $start_x = 0;
my $stary_y = 0; 
my $radius = 10;
my @data = (4,5,2,6,8);
#########################

my $slices = $data;
my $slice_angle = 360/$slices;

foreach my $this_value (@data)
{

my $x1 = ?; ## need to get dynamically
my $y1 = ?; ## need to get dynamically

my $x2 = ?; ## need to get dynamically
my $y2 = ?; ## need to get dynamically

$canvas->createArc( $x1, $y2, $x2, $y2, -start => 0, -extent => $slice_angle, -style => 'pieslice', );
}

MainLoop;