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.