use Tk;
my $mw  = Tk::MainWindow->new();

my $can = $mw->Canvas(
                -height => 100,
                -width  => 100 ,
                -bg => 'red',
                -highlightthickness => 0,
)->pack( );

$can->createRectangle(0,0,101,101,
      -fill => 'gold2',
      #-outline => undef ,
      #-width => 10,
);
	
MainLoop;