Call perl subroutine from $int->Eval

--0000000000008c6ad30598fba853
Content-Type: text/plain; charset="UTF-8"

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

--0000000000008c6ad30598fba853
Content-Type: text/html; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

<div dir=3D"ltr"><div dir=3D"ltr"><div dir=3D"ltr"><div dir=3D"ltr">I have =
some portion of codes written in Tcl inside my Perl script (here a Drag&amp=
;Drop I can not write in Perl). <div><br></div><div><div>#creating Dropper<=
/div><div>$int-&gt;Eval(&quot;bind $Widgetname &lt;&lt;Drop&gt;&gt; {</div>=
<div><span class=3D"gmail-Apple-tab-span" style=3D"white-space:pre">	</span=
>$Widgetname configure -state normal</div><div><span style=3D"white-space:p=
re">=C2=A0       </span># .drop_target delete 0 end=C2=A0</div><div><span s=
tyle=3D"white-space:pre">=C2=A0       </span>$Widgetname insert end %D</div=
><div><span class=3D"gmail-Apple-tab-span" style=3D"white-space:pre">	</spa=
n>focus $Widgetname</div><div><span class=3D"gmail-Apple-tab-span" style=3D=
"white-space:pre">	</span>#.drop_target configure -state disabled</div><div=
><span class=3D"gmail-Apple-tab-span" style=3D"white-space:pre">	</span>set=
 x -2000</div><div><span class=3D"gmail-Apple-tab-span" style=3D"white-spac=
e:pre">	</span>=C2=A0}&quot;</div><div>);</div></div><div><br></div><div><f=
ont color=3D"#000000" face=3D"-webkit-standard" size=3D"3">Is there a way t=
o call a=C2=A0Perl=C2=A0subroutine from within the=C2=A0</font>$int-&gt;Eva=
l?<br></div><div>Best,</div><div>Welle</div></div></div></div></div>

--0000000000008c6ad30598fba853--