use strict;
use warnings;

use Tk;
my $top = MainWindow->new;
my $can = $top->Canvas()->pack();

my @offset = (100, 100);

my $PI = atan2(1,1) * 4;
my $max = 100;
my $radius = 20;
my $start=35;
my $end=$max-22;

# Generate list of line segments...
my @coords;
foreach my $i (1..$end) {
	my $radians = ($i+$start)*2*$PI/$max, $radius;
	my @nextXY = (
		$radius * sin($radians),	# X-val
		$radius * cos($radians),	# Y-val
	);
	push(@coords, @nextXY);
}

# Fix things for the arrowhead...
$coords[-1] -= 2; # y
$coords[-2] += 2; # x

# Draw the line (arrowed arc)...
my $l = $can->create('line', \@coords, -arrow=>'last'); 
$can->move($l, @offset);

MainLoop;