use strict;
use warnings;
use Tk;

$mw=MainWindow->new;
$mw->geometry("500x500");
MainLoop;