$canvas->createArc($x1,$y1,$x2,$y2, -width=> 5, -fill=> 'purple',-outline=> 'purple',-style=> 'arc', -extent=> 59.59, -start => 300);
$canvas->createArc($x1,$y1,$x2,$y2, -width=> 5, -fill=> 'blue',  -outline=> 'blue',  -style=> 'arc', -extent=> 30,    -start => 270);
$canvas->createArc($x1,$y1,$x2,$y2, -width=> 5, -fill=> 'red',   -outline=> 'red',   -style=> 'arc', -extent=> 150,   -start => 120);
$canvas->createArc($x1,$y1,$x2,$y2, -width=> 5, -fill=> 'green', -outline=> 'green', -style=> 'arc', -extent=> 120,   -start => 0);
$canvas->createText($x_center+75, $y_center+75, -fill => 'black', -text => 'Foo Genome');
$canvas->createText($x_center+75, $y_center+90, -fill => 'black', -text => '25,632 bp');