#!/usr/bin/perl

use strict;
use warnings;
use Tk;

my $mw = MainWindow->new;
$mw->Label( -text => 'Starcraft Strategy Generator' )->pack;
$mw->Button(
   -text => 'Generate Strategies'
   )->pack;
$mw->Entry->pack;
$mw->Checkbutton(
   -text => 'Use time limits?'
   )->pack;
$mw->Entry->pack;
$mw->Text(
   -width => 20, 
   -height=> 10
   )->pack;

MainLoop;