package require tkdnd
dnd bindsource .perl_hlist_object text/uri {\&Perl_Sub}
bind .perl_hlist_object <1> {dnd drag %W}