$widget->Button(-text=>"mybutton", -command=> [ \&mysub, 'a1', 'a2' ])