Select Code to Download

use Tk;
use strict;
...
$canvas->createOval(100,100,500,500);

MainLoop;

$canvas->createText(…);