perl -MTk -e '$c=tkinit->Canvas;$c->createLine( 0,0,1,1 ); $c->delete("all"); warn $c->createLine(0,0,1,1)'