$boom->Button((-text=>'Yes',-command=>\&des)->pack()