$f->Button(-text => "Sug", -command =>\&tged)->pack(-side => 'right');