Not sure if it has drag and drop relevance, but take a look at Tk::send

NAME
       send - Execute a command in a different application
 
SYNOPSIS
        $result = $widget->send(?options,?app=>cmd?arg arg ...?)
[download]

Update: http://www.perltk.org has an article on remote dnd