use Tk;
use strict;

my $main = MainWindow->new(-title => "Resize Test"); 
$main->geometry("600x400");
$main->Button( 
-text => "Exit Program", 
-command => sub { exit } 
)->pack(); 

MainLoop;