use strict;
use warnings;
use lib qw(. lib);
use CGI;
use CGI qw/:standard -debug/;

print_form();

sub print_form {
	print header;
	print start_html("Problem demo");
	print "<h1>Problem demo</h1>\n";
	print start_form;
	print "Old: " . param('OldBugText') . "<br>";
	text_field();
	print submit('Action', 'Submit');
	print "</p>";
	set_old_params();
	show_vars();
	print end_form;
	print "<hr>\n";
	print end_html;
}

sub text_field {
	my $bugtext  = "Example Text";
	print "<p>", textarea(-name    => 'BugText',
						  -value   => $bugtext,
                          -rows    => 10,
                          -columns => 40);
}

sub show_vars {
    print "<h2>Here are the current settings in this form</h2>";
    for my $key (param) {
	    print "<strong>$key</strong> -> ";
	    my @values = param($key);
	    print join(", ",@values),"<br>\n";
    }
}

sub set_old_params {
	for('BugText') {
		if (defined param($_)) {
			param(-name => "Old" . $_ , -value => param($_));
		} else {
		    param(-name => "Old" . $_ , -value => '');
		}
	}
}