my $mw = 'MainWindow'->new;
$mw->GUIask->pack;

MainLoop();