my $toplevel=MainWindow->new(-title=>'Progress Bar'); my $mw=MainWindow->new(-title=>'Main Window');