use strict;
use warnings;
use Tk;
my $mw =tkinit;
my $c = $mw->Canvas->pack(-fill => 'both',
                          -expand => 1);
$c->createArc(40,40,140,160,
              -style => 'arc',
              -start => 55,
              -extent => 250,
              -width => 30,
          );
MainLoop;