#!/usr/bin/perl --
use strict;
use warnings;
use Tk;
my $mw = tkinit;
my $Section_tblw = $mw->Table(
...
20 lines or less
MainLoop;