perl tk button

21002700

各位大神：
请问 perl Tk 的button ，可以设计为 双击 才调用绑定的脚本吗？

......
$line1->Button(-text => "测试1",-font=>'hzfs.shx 15 light',-activebackground=>'red2',
-anchor => 'w',-activeforeground=>'green2',-background=>'green',
-height=>1,-width=>15,-highlightcolor=>'blue',-highlightbackground => 'black',
-command => sub { destroy $mw;&outfilm } ) ->pack(-side => 'left' );