#!/usr/bin/perl -wT
    use Tk;
    my $mw=new MainWindow;
    MainLoop;