my $mw = MainWindow->new;
$mw->withdraw();
$mw->BList;