wow this is a really good code! nice piece!
i tried changing the 'move' in this code
$canvas->bind('move', '<1>', sub {&mobileStart();});
$canvas->bind('move', '<B1-Motion>', sub {&mobileMove();});
$canvas->bind('move', '<ButtonRelease>', sub {&mobileStop();});
into 'current' so that i can move different layers of objects inside the canvas. WOW thanks man! you guys are great! man im starting to love perl right now hehehe.