# ex_18-1
# Learning Perl on Win32 Systems, Exercise 18.1

use strict;
use CGI qw(:standard);
print header(), start_html("Add Me");
print h1("Add Me");
if(param()) {
  my $n1 = param('field1');
  my $n2 = param('field2');
  my $n3 = $n2 + $n1;
  print p("$n1 + $n2 = <strong>$n3</strong>\n");
} else {
  print hr(), start_form();
  print p("First Number:", textfield("field1"));
  print p("Second Number:", textfield("field2"));
  print p(submit("add"), reset("clear"));
  print end_form(), hr();
}
print end_html();