eval {
 require Tk ;

 MainWindow->new() ;
 MainLoop ;

} ;