use warnings;
use strict;

use Tk;

my $mw = new MainWindow();
$mw->Button()->grid();
$mw->Button()->pack();
MainLoop;