my $MainWindow = MainWindow->new;
    my $fs = $MainWindow->FileSelect(-font => "Arial 24");
    $fs->Show;
    MainLoop;