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

##</code><code>##

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