use warnings;
use strict;
use CGI qw(-no_xhtml :standard *table *Tr );

print header, start_html, start_form, start_table;

print "CGI.pm Version: $CGI::VERSION";

print hr;

print h5("HTML Input tag based counter increments");
print input({type => 'text',
             name => 'val',
             value => param('val') + 10 });

print hr;

print h5("CGI.pm  textfield based counter fails to increment");

print textfield({type => 'text',
                 name => 'val2',
                 value => param('val2') + 10 });

print submit();
print end_table, end_form, end_html;