$but1=$mw->Button(-text=>"something",-command=>\&something1)->pack;