#!/usr/bin/perl -w
use strict;
use CGI qw/:standard :cgi-lib/;
my $I = Vars;

print header(),
  start_html('Example Page'),
    start_form(),
      strong('Web Object'),
      table(
        Tr(
          td( {align=>'right'}, 'Template' ),
          td( textfield({ name  => 'template' }) )
        ),
        Tr(
          td( {align=>'right'}, 'Minscale' ),
          td( textfield({ name  => 'minscale' }) )
        ),
        Tr(
          td( {colspan=>2}, submit({ value => 'submit' }) )
        )
      ),
    end_form(),
    pre( qq{TEMPLATE "$I->{'template'}"\nMINSCALE "$I->{'minscale'}"} ),
  end_html();