my $MW = MainWindow->new( -height => 600, -width => 600 );