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' );