use Tkx;

Tkx::ttk__frame(".c",  -padding => "3 3 12 12");
Tkx::grid( ".c", -column => 0, -row => 0, -sticky => "nwes");
Tkx::grid_columnconfigure( ".", 0, -weight => 1); 
Tkx::grid_rowconfigure(".", 0, -weight => 1);

Tkx::ttk__entry(".c.feet", -width => 7, -textvariable => \$feet);
Tkx::grid(".c.feet", -column => 2, -row => 1, -sticky => "we");
Tkx::ttk__button(".c.calc", -text => "Search", -command => sub {search();});
Tkx::grid(".c.calc", -column => 3, -row => 3, -sticky => "w");

sub search {
   #...;
}

Tkx::MainLoop();