#!/usr/bin/perl
use strict;
use Tk;
use Tk::ROText;

# ... snipped for brevity ... #

main();
MainLoop();
quit();

sub main
{
    $app = MainWindow->new(-height => 500,
                                               -width  => 800);

    $app -> configure(-background => 'white');
    $app -> title("Much To Do About Nothing");
    $app -> formGrid(40,30);