use Tk;  

my $main = MainWindow->new;

MainLoop;