#! perl -slw
use strict;
use Tk;

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

$canvas->createArc( 0, 500, 200, 300, -start => 0, -extent => 90, -style => 'arc' );
$canvas->createPolygon( 190, 400, 210, 400, 200, 410 );
$canvas->createPolygon( 100, 290, 100, 310, 90, 300 );

MainLoop;