my $btn=$frame->Button(-text=>'Ok',-command=>sub{print 'ok'})->pack;