Select Code to Download

#!/usr/bin/perl -w             
use Tk;
...
    $plus->pack;       

MainLoop;

#!/usr/bin/perl -w

...
    $rect_id and $c->delete($rect_id); # Delete any old rectangle firs
+t
    $rect_id = $c->createRectangle($x0, $y0, $x, $y, -outline => 'yell
+ow', -dash => '.   ');
}