#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use CGI;
use CGI::Carp qw(fatalsToBrowser);

my $q = new CGI;
print $q->header; 
print $q->start_html;
my $serverRoot = "$ENV{SERVER_NAME}";

my $previousTotal = $q->param('sumTotal');

print $q -> h2("Previous Total: $previousTotal<br>");

my $currentTotal = $previousTotal + 2;

print $q -> h2("Current Total: $currentTotal<br>");

print $q -> start_form(
                -name    => 'addition',
                -method  => 'GET',
                -enctype => &CGI::URL_ENCODED,
                -action => "http://$serverRoot/cgi-bin/sum.cgi" # <-self url;
            );

print $q -> hidden(
                -name => 'sumTotal', 
                -value => "$currentTotal"
             );

print $q->submit(
            -name => 'button',
            -value => 'Add 2',
            );

print $q ->end_form;
print $q ->end_html;