use warnings;
use strict;

use Tk;
my $mw =MainWindow ->new;
my $f = $mw->Frame()->pack(-ipadx => 5);
$f -> Button(-width => 10)->grid(-row => 0, -column => 0, -padx => 5);
$f -> Button(-width => 10)->grid(-row => 0, -column => 1, -padx => 5);
MainLoop;