my $MW = MainWindow->new( -height => 600, -width => 600 ); #### my $MW = MainWindow->new; $MW->geometry( "600x600" );