use Tk;

my $main = MainWindow->new;

$main->title("Resize Test");
$main->width => 300;
$main->height => 300;

$main->Button(
   -text => "Exit Program",
   -command => sub { exit }
)->pack();

MainLoop;