use Tk;
my $top = MainWindow->new;
$top->Popup;
MainLoop;