Call perl subroutine from $int->Eval

[welle ozean via tcltk]

I have some portion of codes written in Tcl inside my Perl script (here a
Drag&Drop I can not write in Perl).

#creating Dropper
$int->Eval("bind $Widgetname <<Drop>> {
$Widgetname configure -state normal
  # .drop_target delete 0 end
  $Widgetname insert end %D
focus $Widgetname
#.drop_target configure -state disabled
set x -2000
 }"
);

Is there a way to call a Perl subroutine from within the $int->Eval?
Best,
Welle