#!/usr/bin/perl

use strict;
use warnings;
use Tk;
use Tk::Canvas;

my $mw = tkinit();
my $c = $mw->Canvas->pack(-fill => 'both',
                          -expand => 1);

$c->createArc(40,40,180,160,
	-style => 'arc',
	-start => 90,
	-extent => 180,
	-width => 30,
);

$mw->MainLoop();