use warnings;
use strict;
use Tk;

# Das mw erzeugen
my $mw = MainWindow->new();
$mw->Label(-text => '     Test für Canvas     ')->pack();

my $cns = $mw -> Canvas(-width => 350,
                        -height => 350,
                        -relief => 'sunken', 
                        -background => 'yellow');
                        
$cns -> create('polygon',25,100,50,25,150,25,200,100,25,100,
	             -joinstyle => 'bevel', 
	             -fill => 'red', 
	             -outline => 'white', 
	             -width => 5);
$cns -> create('oval',250,250,300,200, 
               -fill => 'green');
$cns -> create('oval',200,150,300,100, 
               -fill => 'blue', 
               -width => 0);
$cns -> create('rectangle',10,150,100,250, 
                -dash => '-. ');
$cns -> pack;

MainLoop;