my $canvas = $top->Canvas(
		-width  => '750',
		-height => '750',
		-bg 	=> 'white',
	)->pack();
           my $e = $canvas->createRectangle(10,10,20,20, -fill => 'red', -outline => 'white' );