$widget->Button(-text=>"mybutton", -command=>\$mysub("a1","a2");