Select Code to Download

        $canvas->createRectangle(x1, y1, x2, y2, ?option, value, optio
+n, value, ...?)

       The arguments x1, y1, x2, and y2 give the coordinates of two di
+agonally opposite corners of the
       rectangle (the rectangle will include its upper and left edges 
+but not its lower or right edges).

#!/usr/bin/perl
use warnings;
...
    my $cur_id = ($can->find('withtag','current'))[0];
    print "current canvas $cur_id\n\n";    
}