I've never used it myself, but a quick search turned up a module called TK::DragDrop, which would seem to take care of that too. Try searching google for "tk drag drop perl" and you will find many tutorials and such regarding this ...

UPDATE: Here ya go

UPDATE: And this node isn't exactly what you're looking for, but it is very similar -- you could easily modify it to do what you want.