Select Code to Download

$c->pack(-expand => 1, -fill => 'both');

#!/usr/bin/perl -w

...
$c->createRectangle(100, 100, 150, 150, -fill => 'yellow'); 

MainLoop;