my $item = $canvas ->create('polygon',5,100,50,5, 150,5,200,100,5,100, -stipple='transparent'); $canvas->bind($item,'',Callback);